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IDENTIFICATION 

PRODUCT CODE: AC=F414A-MC 

PRODUCT NAME: CZCTAAO gros 7 BIT ASCII 
8035-8045 (11/70) 
80 COLUMN CARD TERMINAL CONTROL 
DATA FORMAT: 7 BIT ASCII 

UPDATE DATE 

MAINTAINER: JIM BENNETT 
COMPUTER SPECIAL SYSTEMS 

AUTHOR : -W. DUKE 

UPDATE AUTHOR: VIJAY ANANDWALA 


THE INFORMATION IN THIS DOCUMENT IS aye TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION.DIGITAL EQUIPMENT CORPORATION ASSUMES 

NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOF TWARE ty yy IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONI.Y BE USED OR COPIED IN ACCORDANCE 
GITH THE TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO git ple FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT T 
IS NOT SUPPLIED BY DIGITAL. 


COPYRIGHT: 1974,1980 
DIGITAL EQIPMENT CORPORATION. 
MAYNARD ,MASS. 
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1.0 


2.0 


3.0 


4.0 


THIS PROGRAM TESTS THES aa Bear ABILITY OF THE CTS11-JC TO 
INTERFACE TO AN 8035 COLUMN READER/PUNCH. ieee 
CONSISTS OF TWO SETS OF Tests, LOGIC TESTS ‘. CARD rests 
THE LOGIC TESTS ARE PERFORMED WITHOUT CARDS IN THE 8035-8045 


CARDS. THE NOT BE UNTI LOGIC 
TESTS HAVE tee SUCCESSFULLY. THE PROGRAM IS DEVICE CODE 
INDEPENDENT AND THERE IS AN INPUT ROUTINE WHICH ALLOWS 
THE OPERATOR TO SPECIFY DEVICE ADDRESS, an he VECTOR 
ADDRESS AND BR LEVEL. THIS ROUTINE IS RUN AT THE 
BEGINNING OF EVERY PASS THROUGH THE PROGRAM, THERE IS A 
GREAT DEAL OF hee 1 REQUIRED BETWEEN THE OPERATOR 
AND THE PROGRAM. THIS INTERACTION IS ACCOMPLISHED BY MEANS 
OF TELETYPE DIRECTIONS AND MESSAGES TYPED OUT DURING THE 
RUNNING OF THE PROGRAM WHICH FREQUENTLY oo ay OPERATOR 
RESPONSE. DIRECTIONS GIVEN TO THE OPERATOR VIA THE TELETYPE 
MUST BE FOLLOWED EXACTLY TO ACHIEVE SUCCESSFUL TESTING. 
REQUIREMENTS 
2.1 EQUIPMENT 
PDP-11 WITH MINIMUM OF 4K OF MEMORY 
CTS11-JC_INTERFACE 
8035-8045 80 COLUMN READER/PUNCH 
2.2 PRELIMINARY PROGRAMS 


ALL PROCESSOR DIAGNOSTICS MUST RUN ERROR FREE 


LOADING PROCEDURE 
PROCEDURE FOR LOADING NORMAL ABSOLUTE TAPES SHOULD BE FOLLOWED. 


STARTING PROCEDURE 
4.1 CONTROL SWITCH SETTINGS 


SR15=1 CONTINUE AFTER ERROR 

SR14=1 DELETE ERROR TYPEOUTS 

SR13=1 LOOP ON E 

SR2=1 BYPASS DEVICE CODE ENTRY ROUTINE 
SR1=1 DO LOGIC TESTS 

SRO=1 DO CARD TESTS 


4.2 OPERATOR ACTION 


LOAD PROGRAM INTO MEMORY 


SEQ 0002 


Aa 
cz¢ 
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CZCTAA. SRC SEQ 0003 
108 SET SWITCH REGISTER TO STARTING ADDRESS 200(8) 
10 PRESS LOAD 
108 SET SWITCH REGISTER TO DESIRED OPTIONS 
109 PRESS START 
i 
ie 5.0 OPERATING PROCEDURE 
114 FOLLOW DIRECTIONS GIVEN ON THE TELETYPE EXACTLY. THIS IS 
115 NECESSARY FOR SUCCESSFUL TESTING. AT THE END OF A 
1% COMPLETE PASS THROUGH THE SELECTED ROUTINES THE PROGRAM | 
117 WILL TYPE OUT ‘END OF TESTING’ AND HALT. TO REPEAT 
8 FOR ONE PASS, PRESS CONTINUE. | 
120 
121 
1s¢ 6.0 ERRORS j 
12 
12 6.1 ERROR HALTS 
126 ne MEANING OF AN ERROR HALT CAN BE DETERMINED BY READING 


fw 
~“ 


ES eURG KEM e eR 


THE PROGRAM LISTING AT THE ADDRESS OF THE ERROR HALT. | 
6.2 ERROR TYPEOUTS 
ALL ERROR Ale ~ ye WILL INCLUDE THE FIRST LINE 
SHOWN BELOW, AND WHEN RELEVANT ONE OR MORE OF T 

OTHER THREE LINES. | 
| 


"ERROR AT ADDRESS AAAAAA 
i =BBBBBB 


1 "BAD =CCCCCC 

: "COLUMN #=DD"" 

Sat WHERE : 

142 AAAAAA = THE ADDRESS OF THE ERROR 


BBBBBB 
CCCCCC = THE ACTUAL RESULT FROM A TEST 
DD THE C ERROR 


OLUMN NUMBER IN 
7.0 PROGRAM DESCRIPTION 
7.1 LOGIC TESTS 


THE LOGIC TESTS ARE A SERIES OF 6 TESTSS WHICH DO NOT 
REQUIRE CARDS TO BE IN THE 8035-8045 . THESE 6 TESTS PERFORM 
BASIC CHEC T CE AND 


| 
| 
THE EXPECTED RESULT FROM A TEST | 
| 


2SSERE5RE 


POSSIBLE OF THE OPERATIONAL 
OF THE INTERFACE WHILE IN A STATIC CONDITION. CORRECT 
RESPONSE BY THE OPERATOR TO INSTRUCTIONS GIVEN VIA TYPE 
OUTS IS NECESSARY FOR THIS TEST TO BE SUCCESSFUL. 


7.2 CARD TESTS 


152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
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THE CARD TESTS ARE A SERIES OF 4 ROUTINES (PASSES) 
WHICH CHECK THE ABILITY OF THE INTERFACE TO PERFORM 
CORRECTLY IN CARD HANDLING OPERATIONS. THE TESTS 
REQUIRE A DECK 20 BLANK CARDS WHICH ARE PASSED 
THROUGH THE 80 CH A i. 


ASSES IS DONE BY THE RA 
GIVEN VIA TYPE OUTS AT THE BEGINNING AND END OF EACH 
PASS. DETAILED DESCRIPTIONS OF WHAT IS DONE DURING 
EACH PASS IS GIVEN BELOW. 


PASS _1 = THE OPERATOR PUTS 10 BLANK CARDS IN EACH INPUT 
HOPPER. THE PROGRAM READS THESE CARDS AND PUTS THEM INTO 
THE 2 STACKERS, 10 BLANK CARDS IN EACH STACKER. THE 
STRCRERY VERIFIES THAT THERE ARE 10 BLANK CARDS IN EACH 


PASS 2 = THE OPERATOR PUTS THE 20 BLANK CARDS IN THE 

PRIMARY HOPPER. THE PROGRAM READS THESE CARDS AND ALSO 

PUNCHES THE CHARACTER SET ON EACH CARD. THE 

CARDS ARE PUNCHED IN A a ane FASHION WITH THE 1ST 
CARD # ARING IN UMN #1 


APPE 
AND SO ON UNTIL THE 1ST PUCNCHED at ACE OF CARD #20 
IS IN COLUMN #31. THE CARDS ARE ALL PLACED IN STACKER 
#1, THE OPERATOR VERIFIES THAT THe CHARACTER 
SET APPEARS IN EACH CARD AND THAT PUNCHING WAS DONE IN 
A PRECESS FASHION. Ly ett ten APPEAR ON THE CARDS 
IN THE ORDER SHOWN BELOW 


*“W$2B* () #4 ,-. /0123456789: ; <=> ?2@ABCDEF GHI JKLMNOPORS TUVWXYZ_ 
PASS A ~ THE OPERATOR PUTS THE 20 =" IN THE 

PRIMARY HOPPER. EADS T 

COLUMN #1, CARD #1 WILL HAVE 1 CHARACTER PUNCHED ON IT, 
CARD #2 WILL HAVE 2 CHARACTERS UP TO CARD #20 WHICH 

Wy HA HARACTERS PUNCHED ON IT. ALL THE 
CHARACTERS PUNCHED IN THIS TEST WILL BE THE ‘‘A’’ 
CHARACTER. THE CARDS WILL BE PLACED IN STACKER #1, 

THE OPERATOR VERIFIES THAT THESE CHARACTERS WERE 
PUNCHED CORRECTLY 


THIS IS THE END OF THE CARD TESTS. 


:cTst1-J¢ 80 COLUMN CARD TERMINAL CONTROL INTERFACE TEST (11/70) 
ATA IS IN ¥ BIT) ASCII FORMAT 


:DECSPE C~AONCDA 
: AUTHORS : 


35-8045 texex 


- DUKE 
° ee - UNSER 


dr 
NOUSWN=O 


— a ie 
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319-DEC-73 

; CUPDATED-MARCH~80] 
«LIST ME 
ABS 


PS=177776 
SR 70 


TKB=177562 
TPS=177564 
PB=1775 
=%0 
R1=21 
R2=%2 
R3=%3 
R4=%4 
R5=%5 
SP=%6 
PC=%7 
XX T 
ERR=EMT 
TYPE=TRAP 
COL = 
GB=3 
=2 
B=1 
-MACR WTDONE 
BIT #200, aTCR 
BEQ 7-6 WAIT FOR DONE FLAG 
~ENDM 
-MACR WTODR 
BITB #200, aTIRHI 
= --6 WAIT FOR OUTPUT DATA REQUEST 
-MACR WTIDR 
BIT #200, aTIR 
ees --6 WAIT FOR INPUT DATA REQUEST 
-MACR_ LOOP A 
-NLIST 
CMP #1, SCOPE 
BNE -+16 
CMP #.-10,LASTPC 
BNE -+6 
«LIST 
JMP avA 
- ENDM 
-MACR CKTCR A,B 
LP=, 
MOV 


A, GOOD 
MOV aTCR,BAD 


READ CMD REGISTER 
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CMP — »BAD 


BEQ 5 

ERR+GB 

LOOP B 

.ENDM 

— CKTSR A,B 


MO A, GOOD 
MOV aTSR,BAD 
CMP GOOD .BAD 


BEQ +4 
ERR+GB 

LOOP B 

ENDM 

|MACR CKTDR A.B 
MOV —A,, GOOD 


MOV @TDR,BAD 
CMP GOOD .BAD 


BEQ +4 
ERR+GB 

LOOP 8 

-~ENDM 

-MACR CKTIR A,B 
LP=. 

MOV A, GOOD 


MOV aTIR,BAD 
eS GOOD ,BAD 


SEQ 0006 


CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 


sREAD STATUS REGISTER 


:STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 


sREAD DATA REGISTER 


:DATA REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 


READ INTERRUPT REGISTER 


+4 

— 5 ; INTERRUPT REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 

-ENDM 

-=0 

-=30 

- WORD ERROR 

-WORD 340 

-WORD TYPOUT 

-WORD 340 

-=174 
DISPREG:.WORD 0 
SWREG: . 
ERRVEC=4 ; TIME OUT AND OTHER ERROR 
DSWR=177570 sHARDWARE SWITCH REGISTER 
aaa ;HARDWARE DISPLAY REGISTER 
SWR: -WORD DSWR ;;ADDRESS OF SWITCH REGISTER 
DISPLAY:.WORD DDISP ;ADDRESS OF DISPLAY REGISTER 
APASS: .WORD 0 ;PASS COUNT 
AENVM: .WORD 0O ZsENVIRONMENT REGISTER 
ASWREG: .WORD 0 ;APT SWITCH REGISTER 
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(1) 

(1) 

(2) 

379 001 
(1) 

(1) 001 
(1) 0012 
(1) 001 
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000574 


000340 
001000 
017514 
013520 
012722 
000004 
011644 
000002 
000026 
000001 


001046 


010656 


000000 
017374 
017336 


001130 


000000 
017326 
017264 


176770 


177440 
177424 


177410 


017350 
017332 
017324 


017276 
017260 
017252 


AUTOB: .WORD 0 


sAUTOMATIC MODE INDICATOR 
INTAG: .WORD 0 


: INTERRUPT MODE INDICATOR 


.-=200 
JMP START 
.=1000 
START: MOV #340,PS :SET BPU TO LEVEL #7 
MOV #1000, SP S INITIALIZE THE STACK POINTER 
CLR SCOPE Z INITIALIZE SCOPE 
JSR PC, SWRCK 
TYPE 
PROGNM s"'CZCTAA.SRC"’ 
JSR PC, GTSWR 
BIT #4, aSWR 
T ZIF SR2=0 
JSR PC ,DEVCOD :GO TO DEVICE CODE ENTRY ROUTINE 
ST1: BIT #2,aSWR 
BEQ ST2 z1F @SWR1=1 
JSR PC, INIT 760 DO LOGIC TESTS 
ST2: BIT #1,aSWR 
BEQ STs 31F SRO=1 
JSR PC,PASS1 :GO DO CARD TESTS 
ST3: TYPE 
ENDMSG END OF TESTING'’ 
XX [HALT AT END 
JMP avsT1 
33 REGISTERS SHOULD EQUAL ZERO AT INITIALIZATION 
INIT: TYPE 
LOGTST j''xweee LOGIC TESTS saexn’' 
INIT "PUT THE 8035-8045 OFF-LINE, REMOVE ALL CARDS 
P2MSG4 PRESS STOP-RESET ON 8035-8045 
JSR PC, CONTIN "PRESS CR TO CONTINUE’ 
INIT1: RESET 
CKTCR #0,INIT1 :TEST CMD REG FOR 0 
MOV ' 
MOV aTCR,BAD ;READ CMD REGISTER 
CMP D. 
BEQ +4 
ERR+GB 7CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 
LOOP ~—s_ INIT1 


CKTSR #0, INIT1 : TEST STATUS REG FOR 0 


#0, GOOD 
MOV aTSR.BAD 
CMP GOOD ,BAD 


READ STATUS REGISTER 


SEQ 0007 
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(eke :57 SEQ 0008 
“) 001 001401 BEQ +6 
a) 001 104003 ERR+GB ;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
<1) 001 LOOP =—ss INIT 
(> 001 000137 001130 JMP avINIT1 
$80 001 am CKTIR #0, INIT1 ;TEST INTERRUPT REG FOR 0 

| (1) 001 01 $76 000000 017224 MOV #0, GOOD 
(1) 001 017767 017264 017206 MOV aTIR,BAD ;READ INTERRUPT REGISTER 
(1) 001272 026767 017212 017200 CMP GOOD ,BAD 

| a1) 001 001401 BEQ +4 | 
a) 001 104003 ERR+GB ; INTERRUPT REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
4) 001 LOOP ~=—s INIT? 
2 001 000137 001130 JMP avINITI 
382 001330 000137 001334 JMP a*TEST | 
334 ;LOAD-READ TEST OF COMMAND REGISTER | 
386 001334 012702 001520 TESTI: MOV aTILST, R2 
387 001340 012267 017146 TIA MOV (R2)+,HOLD 
388 001344 016777 017142 017166 TIB: MOV HOLD, aTCR ;LOAD CMD REGISTER 
389 001352 nanan CKTCR HOLD, T1B zTEST CMD REG FOR CORRECT VALUE 

=. i 

(1) 001352 016767 017134 017130 MOV HOLD , GOOD | 
(1) 001360 017767 017154 017112 MOV aTCR,BAD ;READ CMD REGISTER 
(1) 001366 026767 017116 017104 CMP GOOD ,BAD 
(1) 001374 001401 BEQ + 
(1) 001376 104003 ERR+GB 7CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
(1) 001400 LOOP =s«aT'1B | 
(2) 001420 000137 001344 JMP aT iB 
390 001424 020227 001552 CMP R2,4T1END+2 
391 001430 001343 BNE A 
392 zNOW SEE IF RESET CLEARS ALL BITS THAT CAN BE SET IN THE COMMAND REGISTER | 
393 001432 012777 074136 017100 TiC: MOV #74136, aTCR ;LOAD COMMAND REG WITH ALL BITS 
394 001440 000005 RESET | 
395 001442 CKTCR #0,TIC zTEST CMD REG FOR 0 
a) 001442 LP=, 
(1) 001442 012767 000000 017040 MOV #0,GOOD | 
(1) 001450 017767 017064 017022 MOV aTCR,BAD ;READ CMD REGISTER | 
(1) 001456 026767 017026 017014 CMP GOOD ,BAD 
(1) 001464 001401 BEQ 44 
(1) 001466 104003 ERR+GB 3CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 
(1) 001470 LOOP =s—«*‘T1C | 
(2) 001510 000137 001432 JMP avTiC | 
ad 001514 000137 001552 _ JMP aA*TEST2 | 
399 000000 TILST: O 
400 001522 040000 40000 
401 001524 020000 20000 
402 001526 010000 10000 
403 001530 004000 4000 
404 001532 000100 100 
405 001534 000020 20 
406 001536 000010 10 
407 540 000004 4 | 
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010224 
000200 
016744 
016706 
001562 
000000 
016676 
016634 
001634 


000000 
016634 
016562 


001706 
001764 


000340 
000007 
002072 
000340 
000100 
000040 


016460 


016574 
016556 
016550 


[TEST THAT DONE 





- GOOD 
STcR -BAD 
BAD 


@4TESTS 


SEQ 0009 


TEST THAT DONE BIT IS ONLY BIT SET IN 3 REGISTERS 


3, PUT 8035-8045 ON-LINE AND PRESS START ON THE 8035"' 
CR TO CONTINUE" 


CONTIN ;" PRESS 
D BE THe wy BIT SET st 3 REGISTERS 


T CMD REG FOR DONE FLAG 


sREAD CMD REGISTER 

CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
sTEST STATUS REG FOR 0 

READ STATUS REGISTER 

sSTATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
TEST INTERRUPT REG FOR 0 

READ INTERRUPT REGISTER 


: INTERRUPT REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 


BIT CAUSES INTERRUPT TO CORRECT ADDRESS AND BR LEVEL 


SETUP PC VECTOR 
TUP PS VECTOR 
S_ SET TO ONE ares LEVEL FOR DEVICE 


sENABLE INTERRUPT IN 
:DROP BPU LEVEL BY 1 


#4 te 0 m HIGHER 
:GOT NO INTERRUPT WITH BPU AT LEVEL 0 
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016304 
016244 
016226 
016226 


016172 





BR 
:G0T INTERRUPT, NOW TEST TO SEE THAT IT OCCURRED AT CORRECT LEVEL 
T3INT: ADD sHOUSE K KEEP ING OF ST ACK 

MO : GOOD=BR DEVICE 
BADSLEVEL AT WHICH INTERRUPT OCCURRED 
y INTERRUPT OCCURRED AT WRONG LEVEL 


: CLEAR our est REG WITH y bon 


sREAD CMD REGISTER 


CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 


TEST THAT HOPPER EMPTY CAN BE DETECTED ae A HOPPERS ARE SELECTED, ey! 
;HOPPER EMPTY BEING SET CAUSES INPUT ERROR TO SE IN 
ERROR BIT TO SET IN THE CMD REG. TEST THAT ERROR BIT CAUSES AN INTERRUPT. 


TEST FOR PRIMARY HOPPER EMPTY 
TEST4: MOVB SELECT PRIMARY HOPPER 
: TEST FOR IE + HE 


sREAD STATUS REGISTER 

:STATUS REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 

@ATESTS 

#120200,TEST4 ;TEST FOR ERR + HSO + DONE 

zREAD CMD REGISTER 

:CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 
JMP @4TEST4S 

TEST THAT RESET WILL CLEAR OUT REG 

T4A: RESET :CLEAR OUT CMD REG WITH RESET 
TEST CMD REG FOR DONE 


zREAD CMD REGISTER 
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SEQ 0011 


:CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 


<FELECT SECONDARY HOPPER 
TEST FOR IE + HE 


sREAD STATUS REGISTER 

sSTATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
TEST FOR ERR + HS1 + DONE 

sREAD CMD REGISTER 

(MD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
OOABLE INT INT 

2SETUP PC VECTOR 


:SETUP PS VECTOR 
SET SPU TO LEVEL #1 


:SET BPU TO LEVEL #7 
zWITH ERROR BIT SET IN CMD REG INT DIDN'T OCCUR 


HOUSE KEEPING ON STACK 
TEST FOR ERR + HS1 + IE + DONE 


zREAD CMD REGISTER 


:CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 


ERROR BIT BY WRITING A 1 TO IT 
: TEST CMD REG FOR DONE 


zREAD CMD REGISTER 


3CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 


it ae _ ie 
(2) 000137 002362 QAT4A 

465 TEST FOR'S SECONDARY HOPPER EMPTY 
466 902436 112777 000100 016976 T48: MOVB #100,a a7 CRHI 
m4 _ #220.T 

aM Q02444 012767 016036 MOV #220, G00D 
eb) 017767 016066 016020 MOV aTSR,BAD 
eb eoscae 026767 016024 016012 CMP GOOD; BAD 
(1) 002466 001401 BEQ +4 

eb) 902670 3 ERR+GB 

a 2 LOOP =s«T4B 

(2) 002512 000137 002436 JMP avT4B 

468 002516 one CKTCR #140200, 148 
(1) 002516 012767 140200 015764 MOV #140200, GOOD 
eb) Goz526 017767 016010 015746 MOV aTCR,BAD 
(1) 002532 026767 015752 015740 CMP GOOD ,BAD 
(1) 002540 001401 BEQ +4 
oo LOOP T48 

(2) 02564 000137 002436 avT48 

469 TEST THAT ERROR BIT IN CMD REG 
470 002570 112777 000100 015742 #100, aT 

471 002576 012777 002662 015754 MOV AT4INT,aPCV 
ae 002604 012777 000340 015750 MOV aP. 

473 002612 012767 0000460 175156 T4C: MoV #40,PS 

aoe Sosess ss: 0008 td NOP 

476 902624 012767 000340 175144 MOV #340,PS 

477 104000 ERR 

478 002634 LOOP T4C 

YQ 902656 000137 002612 JMP anToc 

480 002662 062706 000004 T4INT: ADD #4,SP 

461 002666 T4D: CKTCR #140300, 14D 
(1) 002666 012767 140300 01 MOV #140300,GO0D 
(1) 002674 017767 015640 015576 MOV aTCR,BAD 
(1) 002702 026767 015602 015570 CMP GOOD ,BAD 
(1) 002710 001401 BEQ +4 

(1) 002712 104003 ERR+GB 

(1) 002714 LOOP T4D 

(2) 002734 000137 002666 JMP avT4D 

482 ;TEST THAT WRITING A 1 TO ERROR BIT WILL CLEAR IT 
483 002740 012777 000400 015572 T4E: MoV #400, aTCR 7 CLEAR 
484 002746 CKTCR #200, T4E 
(1) 002746 012767 015534 MOV #200,GO0D 
(1) 002754 017767 013560 015516 MOV aTCR.BAD 
(1) 002762 026767 015522 015510 CMP GOOD ,BAD 
(1) 002 001401 BEQ +4 

(1) 002772 104003 ERR+GB 

(1) 002774 LOOP T4E 

(2) 003014 000137 002740 JMP asT4e 
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Jé2ctad. src SEQ 0012 
| 485 003020 CKTSR #0, T4E ;TEST STATUS REG FOR 0 | 
;} 903020 LP=. 
1) 00 01276 MoV. #0, GOOD | 
(1) 00 V7 ? 0139] pieces MOV _—aT'SR, BAD READ STATUS REGISTER | 
(1) 00 767 15436 CMP «GOOD, BAD | 
(1) 003 001401 BEQ + | 
(00 104003 ERRSGB ;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
&%) 963066 000137 002740 IMP AT4E 
487 003072 000137 003076 JMP ss @WTESTS 
£89 TEST FOR PROPER STACKER FULL DETECTION FROM BOTH STACKERS INDIVIDUALLY 
£90 > AND THEN IN STACKER OVERFLOW MODE 
é _ TEST FOR STACKER #1 FULL 
493 00307 104400 TESTS: TYPE i 
49% 003100 015504 T5M1 ;"PUT 8035-8045 OFFLINE 
495 003102 004767 006700 JSR —s- PC, CONTIN :"PRESS CR TO CONTINUE 
9 003106 000005 RESET 
497 003110 112777 000010 015424 MOVE #10, aTCRHI SELECT STACKER #1 
498 003116 104400 TYPE 
499 003120 015412 T2MSG1 ;"PUT 8035-8045 ON-LINE AND PRESS START ON 8035"" 
500 003122 004767 006660 JSR —- PC, CONTIN :"PRESS CR TO CONTINUE’ 
501 003126 104400 TYPE 
302 003150 019576 T5SMSG1 z"PULL CARD PLATE OF STACKER #1 BACK TO POSITION WHICH 
503 003132 104400 TYPE 
504 003134 015665 TSMSG2 ;WILL SIMULATE STACKER FULL AND RELEASE’ 
505 003136 104400 TYPE 
208 003140 015735 T5MSG3 3’ PROGRAM WILL WAIT FOR STACKER FULL FLAG'’ 
507 003142 132777 000020 015376 TSA: BITS #20.aTSRHI 
508 003150 001774 BEQ TSA :WAIT FOR STACKER FULL FLAG 
509 003152 
a) 003152 LP=. 
(1) 003152 012767 110000 015330 MOV —- #110000, Goop 
(1) 003160 017767 015360 015312 MOV _—aT'SR.BAD READ STATUS REGISTER 
(1) 003166 026767 015316 015304 CMP «GOOD “BAD 
(1) 003174 001401 BEQ +4 
(1) 003176 104003 ERR+GB STATUS REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 
(1) 00 LOOP ‘TSA 
(2) 003220 000137 003142 ayTSA 
510 003224 CKTCR #104000,LP TEST FOR ERR + SSO 
a) 003224 LP=, 
(1) 003224 012767 104000 015256 MOV —- #104000, GooD 
(1) 003232 017767 015302 015240 MOV _—aTCR, BAD READ CMD REGISTER 
(1) 003240 026767 015244 015232 CMP —« GOOD-BAD 
(1) 003246 001401 BEQ er 
(1) 003250 104003 ERR+GB MD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 
(1) 003252 LOOP «LP 
(2) 003272 000137 003224 JMP ss aaALP 
511 003276 104400 TYPE 
512 003300 O16715 P2MSG3 :'PRESS STOP-RESET AND PRESS START ON THE 8035-8045 °° 
51 3302 000020 015236 158: ITB #20. aTSRAI 
514 003310 001374 BNE T ;WAIT FOR STACKER FULL TO GO AWAY 

515 003812 seit: CKTSR #0, 158 TEST STATUS REG FOR 0 


fn fn On en ee ee On ee i ee i ee i ee ee ee ee ee 





' 

| 

| 

| 

CKTSR #110000,15A TEST FOR OE + SF 
! 

| 

} 

4 
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’ SEQ 0013 | 


sREAD STATUS REGISTER 

sSTATUS REG = VALUE kcAD NOT EQUAL TO EXPECTED VALUE 
TEST FOR ERR + SSO 

sREAD CMD REGISTER 

3CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 
SELECT STACKER #2 + CLEAR ERR 

z’PULL CARD PLATE OF STACKER #2 BACK TO POSITION WHICH 


sWILL SIMULATE STACKER FULL AND HOLD IT THERE'’ 
z’ PROGRAM WILL WAIT FOR STACKER FULL FLAG’' 


WAIT FOR STACKER FULL FLAG 
: TEST FOR OE + SF 


READ STATUS REGISTER 


sSTATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 


z"PRESS STOP-RESET AND PRESS ON THE 8035-8045 ‘* 


WAIT FOR STACKER FULL TO GO AWAY 
: TEST STATUS REG FOR 0 


zREAD STAT’ . REGISTER 


zSTATUS REG ~ VALUE READ NOT EQUAL TO EXPECTED VALUE 


MP a*#T5D 
: TEST — FULL IN STACKER OVERFLOW MODE 


MOV #0, GOOD 

MOV aTSR,BAD 

CMP GOOD ,BAD 

BEQ +4 

ERR+GB 

LOOP T5B 

JMP avT58 

CTR #104000,LP 

MOV #104000 ,GOOD 

MOV aTCR.BAD 

CMP »BAD 

BEQ +4 

ERR+GB 

LOOP LP 

JMP av_P 
TEST FOR STACKER #2 FULL 

MOVB #31,aTCRHI 

TYPE 

TSMSG5 

TYPE 

TSMSG2 

TYPE 

TSMSG3 

BITB) #20,aTSRHI 

BEQ T5C 

— #110000, TSC 

MOV #110000, GOOD 

MOV aTSR,BAD 

CMP GOOD ,BAD 

BEQ . 

ERR+GB 

LOOP TSC 

JMP aersc 

TYPE 

P2MSG3 

B1TB #20. aTSRHI 

BNE 

CKTSR #0,T5D 

MOV #0, GOOD 

MOV aTSR,BAD 

CMP GOOD, 

BEQ +4 

ERR+GB 

LOOP T5D 

J 

TSM2 

JSR PC, CONTIN 

RESET 

MOV #1,aTCR 

TYPE 

T5MSG1 


:* PRESS START OM THE 8035-8045 *’ 
z/ PRESS 4 TO CONTINUE 


;CLEAR OUT CMD REG 
7SET STACKER OVERFLOW MODE + GO 
"PULL CARD PLATE OF STACKER #1 BACK TO POSITION WHICH 
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TYPE 

TSMSG2 

B1T8 #20, aTSRHI 
BEQ +4 

ERR 

LOOP TSE 


arTSE 
JSR PC,CONTIN 


eon #20, aTSRHI 
CKTSR #110000,TSF 


L ree 
f #110000 GOOD 
MOV aTSR,.BAD 
CMP GOOD, 
BEQ +4 
ERR+GB 
LOOP TSF 
MP 


J arTSF 
ong #100000.LP 


MOV #100000, 
MOV aTCR,BAD 
GOOD ,BAD 


CMP ° 
BEQ +4 
ERR+GB 

L LP 
JMP af“L_P 
RESET 


JMP @F4TEST6 


SEQ 0014 


sWILL SIMULATE STACKER FULL AND RELEASE'’ 


sSTACKER FULL FLAG SET WITH ONLY STACKER #1 
sFULL WHEN IN OVERFLOW MODE 


z'PRESS CR TO CONTINUE’ 
:"PULL CARD PLATE OF STACKER #2 BACK TO POSITION WHICH 
sWILL SIMULATE STACKER FULL AND RELEASE'’ 
3" PROGRAM WILL WAIT FOR STACKER FULL FLAG'' 
WAIT FOR Aig os FULL FLAG 
:TEST FOR OE + SF 
sREAD STATUS REGISTER 
:STATUS REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 
TEST FOR ERR 
sREAD CMD REGISTER 


:CMD REG ~ VALUE READ NOT EQUAL TO EXPECTED VALUE 


FORCE INPUT CHECK ERROR BY TRYING TO FEED A CARD FROM AN EMPTY HOPPER 


TEST6: 


RESET 

JSR PC, CONTIN 

MOV #20001 ,aTCR 
CNT 

#1,CNT 

BNE y 

SUB #1, CNT 

BNE 4 

SUB #1, CNT 

BNE , 

SUB #1,CNT 

BNE : 

CKTSR  #320,LP 


3; PRESS STOP-RESET AND PRESS ON THE 8035-8045 *' 
3" PRESS CR TO CONTINUE'' 
ISSUE GO COMMAND TO PRIMARY HOPPER 


;DELAY 1 SECOND 
:TEST FOR IE + IC + HE 
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CZCTAA.SRC SEQ 0015 | 
Ww 004164 LP=, 
G) 0041 O1e76r 000. 014316 MOV #320. G00D 
C)) 0041 17767 014346 014 MOV aTSR,.BAD ;READ STATUS REGISTER 
a) 767 014 01427 CMP GOOD ,BAD 
a) 1401 BEQ 44 
a) 90421 104003 ERR+GB ;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
a) 1 LOOP —séaLP | 
(2) 004232 000137 004164 JMP av_P 
230 004236 000005 RESET 
282 004240 000207 RTS PC sEXIT LOGIC TEST | 
584 THIS TEST FEEDS 20 BLANK CARDS, 10 FROM EACH HOPPER, INTO THE STACKERS 
585 ; (10 INTO EACH STACKER). THE CARDS ARE TESTED FOR ALL SPACES AND 
286 : TESTING IS DONE TO INSURE THAT THE INPUT DATA REQUEST CAN CAUSE 
; . | 
588 : | ) 
589 004242 000005 PASS1: RESET { 
590 004244 104400 TYPE { 
591 004246 016274 CRDTST j''eeeee CARD TESTS eeeee'! { 
592 004250 104400 TYPE 
593 006252 016327 P1MSG1 s"REMOVE ALL CARDS AND PUT THE 8035-8045 OFF=LINE" { 
594 004254 004767 005526 JSR PC, CONTIN "PRESS CR TO CONTINUE" { 
595 006260 004767 007420 JSR PC, CKSWR { 
596 004264 000005 RESET { 
597 004266 112777 000010 014246 MOVB #10,aTCRHI ;SELECT STACKER #1 | 
598 004274 104400 TYPE { 
599 016412 P1MSG2 PUT 10 BLANK CARDS IN EACH INPUT HOPPER’' { 
600 004300 104400 TYPE 
601 004302 016464 P1MSG3 z'PUT 8035-8065 ON-LINE AND PRESS 
602 3, START ON THE 8035-8045 * 
603 004304 004767 005476 JSR PC, CONTIN s"PRESS CR TO CONTINUE i 
604 ;DONE + SSO SHOULD BE THE ONLY BITS SET IN THE CMD REG | { 
605 004310 CKTCR #4200,LP zTEST FOR SSO + DONE FLAG | { 
a) 004310 LP=, { 
(1) 006310 012767 004200 014172 MOV #4200, GOOD { 
(1) 006316 017767 014216 014154 MOV aTCR,BAD ;READ CMD REGISTER { 
a) 026767 014160 014146 CMP GOOD ,BAD { 
(1) 006332 001401 BEQ _« { 
(1) 0046334 104003 ERR+GB 3CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE { 
(1) 006336 LOOP =—sé&LP { 
(2) 004356 000137 004310 JMP arp | { 
606 +SEE IF ISSUING GO CLEARS THE DONE FLAG (READ 1ST CARD) { 
607 004362 012777 024001 014150 #24001, aTCR UE + SSO + GO | { 
ay Oe CKTCR #24000.LP TEST FOR HSO + SSO 
(1) 004370 012767 024000 014112 MOV’ — #24000,,G00D | 
(1) 004376 014136 014074 MOV aTCR,BAD ;READ CMD REGISTER ! 
(1) 004404 014100 014066 CMP GOOD ,BAD 
(1) 006412 001401 BEQ + | 
(1) 006414 104003 ERR+GB 7CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE ! 
(1) 004416 LOOP =—séaLP 
(2) 004436 000137 004370 JMP ay_P | 
609 004442 005067 014036 CLR CNT ! 
610 004446 162767 000001 014030 SUB #1,CNT 
611 004454 001374 BNE .-6 | 
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612 004456 162767 000001 014020 SUB #1, (NT 
613 004664 001374 BNE 8 :DELAY 1 SECOND 
els 004466 CKTSR #4011,LP TTEST FOR CIW + RDR 
(1) 006466 012767 011 014014 MOV #4011, GOOD 
(1) 004674 017767 014044 013776 MOV a@TSR,BAD ;READ STATUS REGISTER 
1) 004 767 014002 013770 CMP GOOD, BAD 
(1) 004510 001401 BEQ +4 
(1) 004512 104003 ERR+GB ;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
C1) 006514 LOOP =s&LP 
(2) 006534 000137 004466 JMP avLP 
615 004540 CKTIR #200,LP ;TEST FOR IDR 
a) 004540 LP=, 
(1) 004540 012767 200 013742 MOV #200,GO0D 
(1) 004546 01 7 014002 013724 MOV aTIR,BAD sREAD INTERRUPT REGISTER 
(1) 006554 026767 013730 013716 CMP GOOD; BAD 
(1) 004562 001401 BEQ ; 
(1) 004564 104003 ERR+GB ; INTERRUPT REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 
(1) 004566 LOOP LP 
(2) 004606 000137 004540 aeLP 
616 zSEE IF INPUT DATA REQUEST WILL CAUSE AN INTERRUPT 
617 004612 052777 001100 013720 BIS #1100, aTCR E INT 
618 004620 012777 004 013732 #PTINT, @PCV :SETUP PC VECTOR 
619 004696 12777 000340 013726 MOV #340, aPSV ;SETUP PS VECTOR 
620 012767 173134 PIA: MOV #40,PS [SET BPU TO LEVEL #1 
621 004642 NOP 
622 004644 NOP 
623 004646 012767 000340 173122 MOV #340,PS 7SET BPU TO LEVEL #7 
624 004654 1 ERR ; INPUT DATA REQUEST DIDN'T CAUSE AN INTERRUPT 
625 004656 LOOP =s PTA 
(1) 004676 000137 004634 JMP aePlA 
626 006702 BR P1B 
627 004704 062 000004 PIINT: ADD #4,SP ;HOUSE KEEPING ON STACK 
628 004710 004767 005122 P1B: JSR PC *BLKCRD ;TEST FOR BLANK CARD 
629 004714 CKTSR #4010,LP *TEST FOR CIW 
1) 004714 LP=. 
(1) 004714 012767 010 013566 MOV #4010, GOOD 
(1) 0064722 017767 013616 013550 MOV a@TSR,BAD ;READ STATUS REGISTER 
(1) 006730 026767 013554 013542 CMP GOOD; BAD 
(1) 006736 001401 BEQ +4 . 
(1) 0064740 104003 ERR+GB ;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
(1) 006742 LOOP LP 
(2) 006762 000137 004714 JMP aw_P 
630 004766 haagar CKTCR #25300,LP ;TEST FOR HSO + SSO + DONE + INT EN 
(1) 006766 012767 025300 013514 MOV #25300, GOOD 
(1) 006774 017767 013540 013476 MOV aTCR.BAD :READ CMD REGISTER 
(1) 005002 767 013502 013470 CMP GOOD. BAD 
(1) 005010 001401 BEQ +6 
(1) 005012 3 ERR+GB 3(MD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
(1) 005014 LOOP =s&LP 
Bi ~~ ee. Os READ CARDS #2 9 FROM PRIMARY HOPPER 
632 0050460 012767 000010 01 4 
633 005046 012777 025001 013464 PID: MoV #25001, aTCR yISSUE HSO + SSO + GO 
634 005054 WTIDR 
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BIT #200, aTIR 
BEQ 6 
CKTSR #4011,LP 
MOV #4011,GO0D 
MOV aTsR, 
CMP 7 
BEQ ‘ 
ERR+GB 
LOOP =—sé&LP 
JMP aa_P 
JSR PC BLKCRD 
CKTCR #25200,LP 
MOV #25200, GO0D 
MOV aTCR.BAD 
CMP GOOD .BAD 
BEQ +4 
ERR+GB 
L LP 
JMP av_P 
DEC CNT1 
BNE P1D 

ZREAD CARD #10 OUT OF PRIMARY HOPPER 
MOV #25001,aTCR 
WTIDR 
BIT #200, aTIR 
BEQ 6 
JSR PC ,BLKCRD 
CKTSR #64230,LP 
MOV #4230, GOOD 
MOV aTSR,BAD 
CMP J 
BEQ +4 
ERR+GB 
LOOP =s«&LP 
JMP a4LP 
CKTCR #125200,LP 
MOV #125200, GOOD 
MOV aTCR.BAD 
CMP GOOD; 
BEQ +4 
ERR+GB 
LOOP LP 
JMP aa_P 

;READ CARD #11 OUT OF SECONDARY 
MOV #045401, aTCR 
WTIDR 
BIT #200, aTIR 
BEQ 
CKTSR #4011,LP 
MOV #4011,GO0D 
MOV aTSR,BAD 


SEQ 0017 | 


sWAIT FOR INPUT lly REQUEST 
sTEST FOR Clw + 


sREAD STATUS REGISTER 


sSTATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 


3; TEST FOR BLANK C 
sTEST FOR HSO + sO + DONE 


sREAD CMD REGISTER 


CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 


; ISSUE HSO + SSO + GO 


WAIT FOR INPUT DATA REQUEST 
TEST FOR BLANK CARD 
:TEST FOR CIW + IE + HE 


sREAD STATUS REGISTER 

sSTATUS REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 
: TEST FOR ERR + HSO + SSO + DONE 

zREAD CMD REGISTER 


:CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 


HOPPER 
ISSUE CLEAR ERR + HS1 + SSO + GO 


WAIT FOR INPUT —_ REQUEST 
{TEST FOR CIW + 


READ STATUS REGISTER 
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SEQ 0018 
a) 2 026767 013062 013050 CMP GOOD .BAD 
(1) 005430 001401 BEQ +4 
a ) 0094 104003 ERR*GB 1. ;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
(2) 005454 000137 005406 JMP avLP 
650 005460 004767 004352 JSR PC BLKCRD :TEST FOR BLANK CARD 
631 005464 snes CKTCR #45200,LP :TEST FOR HS1 + SSO + DONE 
(1) 005464 012767 045200 013016 MOV #45200, GOOD 
(1) 005472 017767 013042 013000 MOV aTCR,BAD ;READ CMD REGISTER 
(1) 005500 026767 013004 012772 CMP GOOD. BAD 
(1) 005506 001401 BEQ +4 
(1) 005510 104003 ERR+GB ZCMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
1) 005512 LOOP =s&LP 
(2) 005532 000137 005464 JMP avLP 
63¢ ;READ CARDS #12-19 AND PUT THEM IN STACKER #2 
653 005536 012767 000010 012742 MOV #10, (N 
654 005544 012777 055001 012766 PIE: MOV #55001 ,aTCR :ISSUE HS1 + SS1 + GO 
655 005552 WTIDR 
(1) 005552 032777 000200 012774 BIT #200, aTIR 
(1) 005560 001774 BEQ .-6 ;WAIT FOR INPUT DATA REQUEST 
656 005562 004767 004250 JSR PC,BLKCRD [TEST FOR BLANK CARD 
657 005566 WTDONE 
(1) 005566 032777 000200 012744 BIT #200, aTCR 
(1) 005574 001774 BEQ 6 ZWAIT FOR DONE FLAG 
658 005576 CKTSR #4010.LP :TEST FOR ClW 
(1) 005576 LP=, 
(1) 005576 012767 004010 012704 MOV #4010, GOOD 
(1) 005604 017767 012734 012666 MOV aTSR,BAD ;READ STATUS REGISTER 
(1) 005612 026767 012672 012660 CMP GOOD .BAD 
(1) 005620 001401 BEQ +4 
iS 005622 104003 i“ Lp ;STATUS REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 
(2) 000137 005576 JMP av_P 
tf 005650 005650 — #55200,LP : TEST FOR HS1 + SS1 + DONE 
(1) 005650 012767 055200 012632 MOV #55200, GOOD 
(1) 005656 017767 012656 012614 MOV aTCR,BAD ;READ CMD REGISTER 
) 026767 012620 012606 CMP GOOD; BAD 
(1) 72 001401 BEQ +4 
(1) 005674 104003 ERR+GB 7(MD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 
(1) 005676 LOOP =s«&LP 
(2) 005716 000137 005650 JMP avLP 
660 1 DEC CNT1 


BNE PIE 
zREAD CARD #20 OUT OF SECONDARY 
MOV #51 


662 HOPPER 
663 005730 012777 051001 012602 001,aTCR : ISSUE HS1 + SS1 + GO 


664 005736 WTIDR 

a) 736 032777 000200 012610 BIT #200, aTIR 

(1) 005744 001776 BEQ 6 zWAIT FOR INPUT DATA REQUEST 
665 005746 004767 004064 JSR PC BLKCRD [TEST FOR BLANK CARD 

666 005752 tual CKTSR #4230,LP [TEST FOR CIW + IE + HE 

(1) 005752 012767 004230 012530 MOV #4230,GO0D 

(1) 005760 017767 012560 012512 MOV aTSR,BAD ;READ STATUS REGISTER 

(1) 005766 026767 012516 012504 CMP GOOD. BAD 
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005752 


151200 
012502 
012444 


006024 
011401 


003522 
003700 


021401 
000200 


012456 
012440 
012432 


012434 
012426 


012366 
012350 
012342 


012314 
012276 
012270 


012242 
012250 


BEQ +4 
ERR+GB 
LOOP LP 
JMP st} 
1h #151200,LP 
MOV #151200 ,G00D 
MOV aTCR,BAD 
CMP 3 
BEQ +4 
ERR+GB 
yy LP 
aA4_P 

3;PUT CARD 1120 a” sraanen #2 
MOV 1401,aTCR 
WTDONE 
BIT #200, aTCR 
BEQ --6 
— #0,LP 
MOV #0, GOOD 
MOV @TSR,BAD 
CMP GOOD ,BAD 
BEQ +4 
ERR+GB 
LOOP 
JMP a@4LP 
— #11200,LP 
MOV #11200, GOOD 
MOV aTCR,BAD 
CMP J 
BEQ +4 
ERR+GB 
LOOP LP 
JMP af_P 
JMP @4PASS2 


SEQ 0019 
3STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
: TEST FOR ERR + HS1 + SS1 + DONE 
READ CMD REGISTER 


3CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 


ISSUE CLEAR ERR + SS1 + GO 


WAIT FOR DONE FLAG 
:TEST FOR STATUS=0 


sREAD STATUS REGISTER 


sSTATUS REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 


TEST FOR SS1 + DONE 


sREAD CMD REGISTER 


CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 


THIS TEST PUNCHES THE ENTIRE CHAR SET ON EACH CARD IN A PRECESSED 
hope PUNCHE 


yg MEANS THE 1ST 


wae ie cae ton ARD #1 IS _IN 
HAR OF CARD #20 IS IN 


OLUMN #11 AND THE 1ST PUNCHED C. COLUMN 
wie ALSO TEST THAT OUTPUT DATA. REQUEST CAN CAUSE AN INTERRUPT. 


PASS2: TYPE 


sFEED CARD #1 
MOV 


WTIDR 
BIT 


PC, CONTIN 
PC, CLRBFS 


#021401,aTCR 
#200,aTIR 


2"‘VERIFY THAT THERE ARE 10 BLANK CARDS IN EACH STACKER’’ 
"PLACE ALL 20 CARDS IN THE PRIMARY HOPPER’’ 


3; PRESS STOP-RESET AND PRESS START ON THE 8035-8045 °° 
3‘PRESS CR TO CONTINUE’ 
[PREPARE BUFFER FOR PUNCHING 


; ISSUE CLEAR ERR + HSO + GO 
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CZCTAA.SRC Ayeao 14:57 SEQ 0020 ZC) 
) 001774 BEQ .6 sWAIT FOR INPUT DATA REQUEST 1 
6 004767 003524 JSR PC,BLKCRD :TEST FOR BLANK CARD 1 
69 1 WTDONE 1 
a) 12 032777 000200 012220 BIT #200,aTCR 1 
) 001774 BEQ -~6 sWAIT FOR DONE FLAG 1 
694 006322 CKTSR #4010,LP TEST FOR ClIwW 1 
a) 006322 LP=, 1 
) Doe Ses 012767 004010 012160 MOV #4010, G00D 1 
) 017767 012210 012142 MOV aTSR.BAD sREAD STATUS REGISTER 1¢ 
(1) 006336 026767 012146 012134 CMP GOOD ,BAD 1 
(1) 006344 001401 BEQ +4 1 
(1) 006346 104003 ERR+GB sSTATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 1¢ 
(1) 006350 LOOP LP 1 
(2) 006370 000137 006322 JMP avLP 1 
* 006374 1? #21200,LP :TEST FOR HSO + DONE v 
(1) 006374 012767 021 012196 MOV #21200, GO0D 1¢ 
(1) 017767 012132 012070 MOV aTCR,BAD sREAD CMD REGISTER 1¢ 
(1) 006410 0267 012074 012062 CMP GOOD ,BAD 1¢ 
(1) 006416 001401 BEQ + 1¢ 
(1) 006420 104 ERR+GB CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 1¢ 
(1) 006422 LOOP LP 1¢ 
(2) 006442 000137 006374 JMP af“LP 1¢ 
696 zFEED CARDS #2-19, INHIBIT READ FOR THESE CARDS 1¢ 
697 006446 012767 017534 012054 MOV #BF1,PTR 1¢ 
698 006454 012767 000022 012024 MOV #22,CNT1 :CNT1=18 1¢ 
699 006462 012777 021027 012050 P2a: MOV #21027 ,aTCR 2 ISSUE HSO + IR + PRI + PUN + GO 1¢ 
700 006470 WTODR . 1¢ 
(1) 006470 132777 000200 012060 BITB #200, aTIRHI ¢ 
(1) 006476 001774 BEQ --6 WAIT FOR OUTPUT DATA REQUEST 1¢ 
701 006500 CKTSR #4410,LP : TEST FOR PUDR 1¢ 
(1) 006500 LP=, 1¢ 
(1) 006500 012767 004410 012002 MOV #4410, GOD 1¢ 
(1) 017767 012032 011764 MOV aTSR,BAD sREAD STATUS REGISTER 1¢ 
(1) 006514 026767 011770 011756 CMP GOOD ,BAD | 1¢ 
(1) 006522 001401 BEQ +4 1¢ 
(1) 006524 104003 ERR+GB sSTATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 1¢ 
(1) 006526 LOOP LP 1¢ 
(2) 006546 000137 006500 JMP aA4LP | 1¢ 
702 006552 004767 003452 JSR PC ,P2SEND SEND DATA TO PUNCH 1C 
703 006556 162767 000002 011744 SUB #2,PTR 11 
704 006564 WTDONE 11 
(1) 006564 032777 000200 011746 BIT #200,aTCR 11 
(1) 006572 001774 BEQ ° zWAIT FOR DONE FLAG 11 
44 006574 ; ig #4010,LP : TEST FOR CIwW uN 
(1) 006574 012767 004010 011706 MOV #4010, GOOD 11 
(1) 006602 017767 011736 011670 MOV @TSR,BAD sREAD STATUS REGISTER 11 
(1) 006610 026767 011674 011662 CMP GOOD ,BAD 11 
(1) 006616 001401 BEQ +4 11 
(1) 006620 104003 ERR+GB sSTATUS REG ~ VALUE READ NOT FQUAL TO EXPECTED VALUE 11 
(1) 006622 LOOP LP 11 
(2) 006642 000137 006574 JMP aA4LP 11 
706 006646 CKTCR #21226,LP zTEST FOR HSO + DONE + IR + PRI + PUN 11 
(1) 006646 LP=, 11 
(1) 006646 012767 021226 011634 MOV #21226, GOOD 11 
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CZCTAA.SRC SEQ 0021 
(1) 006654 017767 011660 011616 MOV aTCR,BAD ;READ CMD REGISTER 1 
a) Rose6e 026767 011622 011610 CMP GOOD ,BAD 1 
(1) 0066 1401 BEQ 144 1 
(1) 006672 104003 ERR+GB 3CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 1 
(1) 006674 LOOP —séaLP 1 
(2) 006714 000137 006646 JMP aa_P 1 
wr 006720 70 CKTIR #0,LP sTEST FOR 0 1 
(1) 006720 012767 000000 011562 #0, GOOD 1 
(1) 006 017767 011622 011544 MOV aTIR,BAD ;READ INTERRUPT REGISTER 1 
G1) 006 026767 011550 011536 CMP GOOD ,BAD 1 
(1) 006742 001401 BEQ +4 1 
(1) 006744 104003 ERR+GB ; INTERRUPT REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 1 
(1) 006746 LOOP =séas$LP 1 
(2) 006766 000137 006720 JMP arp 1 
708 006772 005367 011510 DEC CNT1 zIF ALL CARDS ARE NOT DONE 1 
709 776 001231 BNE P2A 7GO PUNCH ANOTHER CARD 1 
710 zFEED CARD #20 1 
711 007000 012777 021007 011532 MOV #21007, aTCR ; ISSUE HSO + PRI + PUN + GO 1 
712 007006 WTODR 7 
a) 7006 132777 000200 011542 BITB #200, aTIRHI 1 
(1) 007014 001774 BEQ .-6 zWAIT FOR OUTPUT DATA REQUEST 1 
713 007016 004767 003206 JSR PC,P2SEND zSEND DATA TO PUNCH 1 
714 007022 162767 000002 011500 SUB #2,PTR 1 
715 007030 WTIDR 1 
(1) 007030 032777 000200 011516 BIT #200, aTIR | 1 
(1) 007036 001774 BEQ --6 ;WAIT FOR INPUT DATA REQUEST 1 
716 007040 004767 002772 JSR PC,BLKCRD ZTEST FOR BLANK CARD 1 
717 007044 WTDONE 1 
(1) 007044 032777 000200 011466 BIT #200,aTCR 1 
(1) 007052 001774 BEQ .-6 zWAIT FOR DONE FLAG 1 
718 007054 CKTSR #4230,LP zTEST FOR CIW + IE + HE 1 
a) 007054 LP=, 1 
(1) 007054 012767 004230 011426 MOV #4230, GOOD 1 
(1) 007062 017767 011456 011410 MOV aTSR,BAD ;READ STATUS REGISTER 1 
a) 7070 026767 011414 011402 CMP GOOD ,BAD 1 
(1) 007076 001401 BEQ +6 1 
(1) 007100 104003 ERR+GB zSTATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE | 1 
(1) 007102 LOOP =séaLP 1 
(2) 007122 000137 007054 JMP av_P | 1 
v9 007126 sept CKTCR #121206,LP zTEST FOR ERR + HSO + DONE + PRI + PUN 1 
(1) 007126 012767 121206 011354 MOV #121206, GOOD 1 
(1) 007134 017767 011400 011336 MOV aTCR,BAD ;READ CMD REGISTER 1 
(1) 007142 026767 011342 011330 CMP GOOD ,BAD | 1 
(1) 007150 001401 BEQ +6 1 
(1) 007152 104003 ERR+GB zCMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 1 
(1) 007154 LOOP sa P 1 
(2) 007174 000137 007126 JMP 11 
720 7CARD #20 PUNCH AND PRINT 1 
4 907200 012777 001407 011332 MOV #1407,aTCR z ISSUE CLEAR ERR + PRI + PUN + GO i" 
(1) 7206 132777 000200 011342 BITB #200, aTIRHI 11 
(1) 007214 001774 BEQ .-6 jWAIT FOR OUTPUT DATA REQUEST 1 
723 007216 CKTIR #100000.LP : TEST FOR ODR 11 
a) 007216 LP=. 1 
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CZCTAA.SRC 1SeNAYS yas 57 SEQ 0022 czc 
(1) 007216 pre rer 100000 011 MOV #100000 , GOOD 1 
a) porees ANE 24 011 011246 MOV aTIR,BAD sREAD INTERRUPT REGISTER 1 
) 00 011252 011240 CMP GOOD ,BAD 1 
(1) 00 001401 BEQ + 1 
a) 00 104003 ERR+GB ; INTERRUPT REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 1 
GQ) 00 LOOP sLP. 1 
fy 007264 000137 007216 JMP afL_P i 
007270 CKTCR #1006,LP sTEST FOR PRI + PUN 1 
a 007270 LP=, 1 
(1) 007270 012767 001006 011212 MOV #1006, GOOD 1 
(1) 007276 017767 011236 011174 MOV aTCR,BAD ;READ CMD REGISTER 1 
(1) 007304 026767 011200 011166 CMP GOOD ,BAD 1 
(1) 007312 001401 BEQ +4 1 
(1) 007314 104003 ERR+GB 3CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 1 
1) 007316 LOOP =sLP 1 
(2) 007336 000137 007270 JMP a4_P 1 
725 sSEE IF OUTPUT DATA REQUEST WILL CAUSE AN INTERRUPT 1 
726 007342 001100 011170 BIS #1100, aTCR sENABLE INTERRUPT 1 
727 007350 012777 007434 011202 MOV #P2INT ,aPCV sSETUP PC VECTOR 1 
728 007356 012 000340 011176 #340, aPSV : SETUP PS VECTOR 1 
729 7364 012767 000040 170404 MOV #40,PS :SET BPU TO LEVEL #1 1 
730 007372 1 
731 007374 000240 NOP 1 
732 007376 012767 000340 170372 MOV #340,PS SET BPU TO LEVEL #7 2 1 
733 007404 104000 P2B: ERR sOUTPUT DATA REQUEST DIDN'i CAUSE AN INTERRUPT | 1 
734 007406 LOOP P2B 1 
(1) 7426 000137 007404 JMP a¥P 1 
735 007432 BR P2c | 1 
736 007434 062706 000004 P2INT: ADD #4, SP HOUSE KEEPING ON STACK 7 
737 007440 004767 002564 P2C: JSR PC ,P2SEND 3SEND DATA TO PUNCH 1 
738 007444 WTDONE 1 
(1) 007444 032777 000200 011066 BIT #200,aTCR | 1 
(1) 007452 001774 BEQ -~6 sWAIT FOR DONE FLAG 1 
739 007454 CKTSR 4#0,LP sTEST FOR STATUS =0 1 
a) 007454 LP=. | 1 
(1) 007454 012767 000000 011026 #0, GOOD 1 
(1) 007462 017767 011056 011010 MOV aTSR,BAD sREAD STATUS REGISTER 1 
(1) 007470 026767 011014 011002 CMP GOOD ,BAD 1 
(1) 007476 001401 BEQ +4 
(1) 007500 104003 ERR+GB zSTATUS REG ~ VALUE READ NOT EQUAL TO EXPECTED VALUE 
(1) 007502 LOOP =—sLP 
(2) 007522 000137 007454 JMP @4LP 
740 007526 CKTCR #1306,LP ;TEST FOR DONE + INT EN + PRI + PUN 
(1) 007526 LP=, 
(1) 007526 012767 001306 010754 MOV #1306 , GOOD | 
(1) 007534 017767 011000 010736 MOV aTCR.BAD 3READ CMD REGISTER 
(1) 007542 026767 010742 010730 CMP GOOD ,BAD 
(1) 007550 001401 BEQ +4 
(1) 007552 104003 ERR+GB 3CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 
(1) 007554 LOOP =soLP 
i 007574 000137 007526 JMP . ALP 
4 007600 000137 007604 JMP @4PASS3 
: 
744 STHIS TEST PERFORMS PUNCHING WITHOUT PRINTING. ONE ALL ONES CHAR | 


IS 
745 ; PUNCHED IN COLUMN 1 OF CARD 1 AND SO ON UNTIL 20 ALL ONES CHARS 
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-MAIN. MACY) (1052). 1 
CZCTAA. SRC 1amAyoas 14:57 
ms 
748 
FS UE ps9 
751 007610 1 
es 007612 017132 
753 007614 104400 
754 007616 016645 
755 007620 104400 
756 007622 016715 
jel4 7624 004767 002156 
759 007630 012767 0175 
760 007636 012777 021401 
761 007644 
a) 7644 032777 000200 
(1) 007652 001774 
762 007654 767 002624 
763 007660 162767 000002 
764 007666 
(1) 007666 032777 000200 
(1) 007674 001774 
765 007676 
(1) 007676 
(1) 007676 012767 004010 
(1) 7704 017767 010634 
(1) 007712 767 010572 
a) 7720 001401 
(1) 007722 104003 
1) 7724 
(2) 007744 000137 007676 
766 7750 
(1) 00 
(1) 007750 012767 021200 
(1) 7756 017767 010556 
(1) 007764 767 010520 
(1) 007772 001401 
(1) 007774 104003 
(1) 7776 
(2) 010016 000137 007750 
767 
768 
769 010022 012767 000022 
770 010030 012767 000001 
771 010036 012777 021003 
772 010044 
(1) 010044 132777 000200 
(1) 010052 001774 
773 010054 004767 002224 
774 010060 062767 1 
775 010066 
(1) 010066 032777 000200 
(1) 010074 001774 
776 010076 004767 002402 
777 ~010102 162767 


010656 
010674 


010702 


010626 
010644 


010604 
010566 
010560 


010532 
010514 
010506 


010456 
010444 
010474 
010504 


010414 
010460 


010404 


PASS3: 


ARE PUNCHED IN THE 1ST 20 COLUMNS OF CARD 20. THIS TEST 
VERIFIES THE DATA READ FROM PUNCHING DONE IN PASS 2. 


J 
sFEED CARD #1 
MOV 


P3A: 


"VERIFY THAT ALL CHARS WERE PUNCHED ON EACH CARD IN A 
sPRECESS FASHION BEGINNING WITH COLUMN 11 OF 1ST CARD’ 


:"PLACE ALL 20 CARDS IN THE PRIMARY HOPPER'' 


:'PRESS STOP=RESET AND PRESS START ON THE 8035-8045 °° 


sSTATUS REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 


PC, CONTIN "PRESS CR TO CONTINUE’’ 
#8F1,INPTR 

#021401,aTCR ISSUE CLEAR ERR + HSO + GO 
#200, aTIR 

‘ WAIT FOR INPUT DATA REQUEST 
PC, CKDATA =CHECK INPUT DATA FROM PASS 2 
#2, INPTR 

#200, aTCR 

7 ;WAIT FOR DONE FLAG 
#4010.LP [TEST FOR CIW 

#4010,GO0D 

aTSR.BAD :READ STATUS REGISTER 

+4” 

LP 

avLP 

#21200,LP :TEST FOR HSO + DONE 

#21200, GOOD 

a@TCR,BAD ;READ CMD REGISTER 

GOOD .BAD 

o® 


LP 


e 


:CMD REG ~ VALUE READ NOT EQUAL TO EXPECTED VALUE 


af4_P 
FEED CARDS #2-19, wos INPUT DATA AND PUNCHING 1 CHAR IN 1ST CARD, 
IN 2ND ETC. UP TO 20 aa D 20 


#1, CARD CARD=1 
#21003, aTCR SISSUE HSO + + GO 
#200, aTIRHI 
. WAIT FOR OUTPUT DATA REQUEST 
PC ,P3SEND “SEND DATA TO PUNCH 
#1.,CARD 
#200, aTIR 
WAIT FOR INPUT DATA REQUEST 
PC, CKDATA “CHECK INPUT DATA FROM PASS 2 


#2, INPTR 
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#200, aTCR 
#21202,LP 


#21202 ,GO0D 
aTCR,BAD 


+4 

LP 

aA7LP 
#4010,LP 
#4010, GO0D 
@TSR,BAD 


+4 


#21003, aTCR 
#200, aT IRHI 
o -6 

PC ,P3SEND 
#1, CARD 
#200, aTIR 
PC,CKDATA 
#200, aTCR 
#4230,LP 


#4230, GOOD 
aTSR,BAD 
GOOD 


+4 


LP 
af7LP 
#121202,LP 


SEQ 0024 


sWAIT FOR DONE FLAG 
zTEST FOR HSO + DONE + PUN 


sREAD CMD REGISTER 

:CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 

TEST FOR CIW 

sREAD STATUS REGISTER 

sSTATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
TEST INTERRUPT REG FOR 0 

sREAD INTERRUPT REGISTER 

; INTERRUPT REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
GO PUNCH AND READ MORE CARDS 

; ISSUE HSO + PUN + GO 


WAIT FOR OUTPUT DATA REQUEST 
SEND DATA TO PUNCH 


z;WAIT FOR INPUT DATA REQUEST 
:CHECK INPUT DATA FROM PASS 2 


WAIT FOR DONE FLAG 
:TEST FOR CIlW + IE + HE 


zREAD STATUS REGISTER 
sSTATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 


:TEST FOR ERR + HSO + DONE + PUN 





HS Ss SS 3 3 
a 66 0A 86 06 88 50 68 88 Sa 58 58 oe Sh a oS 


ce ed ed ed ed ed dd ed ed ed ed ed ed od od od) 
ef .88 188 108 208 284 28 08 88 28 28 08 00 88 08 04 08 


2 oaf 288 108 128 128 188 
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104400 
017220 
104400 
017373 
104400 
016643 
104400 
016715 
004767 
004767 
012767 
012777 


007754 
007712 
010556 


001202 
007676 
007640 


010630 
010706 


001054 
001252 


017534 
021401 


007550 
007566 


:THIS = inten A senate PRINT OPERATION ON ALL CARDS 
COLUMNS 1-7 OF 1 


LP=. 

MOV #121202,GO0D 

MOV aTCR,BAD 

CMP d 

BEQ +4 

ERR+GB 

LOOP) —SséasLP 

JMP av_P 
;PUNCH CARD #20 

MOV #1003,aTCR 

BITB #200,aTIRHI 

BEQ . 

JSR PC,P3SEND 

WTDONE 

BIT #200, aTCR 

BEQ " 

CKTSR #0,LP 

LP=. 

MOV #0, GOOD 

MOV @TSR,BAD 

CMP GOOD ,BAD 

BEQ +4 

ERR+GB 

LOOP =séa$LPP 

JMP av_P 

CKTCR #001202,LP 

MOV #001202 ,GO0D 

MOV aTCR,BAD 

CMP GOOD ,BAD 

BEQ +4 

ERR+GB 

LOOP 

JMP ayv_P 

JMP @4*PASS4 
: "CARD 01° I 
3 COLUPNS. 1-7 OF 
; DONE IN PASSES 2 + 
PASS4: TYPE 

P4MSG1 

TYPE 

P4MSG2 

TYPE 

P2MSG2 

TYPE 

P2MSG3 

JSR PC, CONTIN 

JSR PC, SETBFS 
FEED CARD #1 

MOV #BF 1, INPTR 

#21401 ,aTCR 


MOV 
WTIDR 


SEQ 0025 


sREAD CMD REGISTER 


CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 


; ISSUE PUN + GO 


zWAIT FOR OUTPUT DATA REQUEST 
:SEND DATA TO PUNCH 


sWAIT FOR DONE FLA 
: TEST FOR STATUSSO. 


sREAD STATUS REGISTER 

sSTATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
: TEST FOR ERR + DONE 

zREAD CMD REGISTER 


CMD REC = VALUE READ NOT EQUAL TO EXPECTED VALUE 


BY 
““CARD 20°° IN 


CARD 1 UP TO 
OF CARD 20. VERIFY CORRECT DATA READ FROM PUNCHING 


"VERIFY THAT THERE IS 1 ALL ONES CHAR PUNCHED IN CARD 1 
:UP TO 20 ALL ONES CHARS PUNCHED IN CARD 20°° 
"PLACE ALL 20 CARDS IN THE PRIMARY HOPPER'’ 
2’ PRESS 5 rent AND PRESS START ON THE 8035-8045 °° 


3“ PRESS CR TO C 
PREPARE BUFFER FOR DATA COMPARE 


2 ISSUE CLEAR ERR + HSO + GO 


Ares ss SESS SS SSS ss sr stn Sr SSS SSS SS SS SSRN 
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lee ee ee ee ee ee ee ee ee ee ee Lee 
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CZCTAA. SRC remy 14.87 SEQ 0026 czc 
a) 010 032777 000200 007574 BIT #200, aTIR 
GQ) 010 177% BEQ .-6 WAIT FOR INPUT DATA REQUEST | 
82 610 767 001516 JSR BC. CKDATA “CHECK INPUT DATA FROM PASSES 2 + 3 | 1 
B33 919 6 162767 000002 007520 su #2, INPTR | 
(1) 010774 032777 000200 007536 + an #200, aTCR 
(1) 011002 001774 BEQ 6 :WAIT FOR DONE FLAG 
825 011004 neem CKTSR #4010,LP STEST FOR ClW 1 
Lr=. 
(1) 011004 012767 004010 007476 MOV #4010, GOOD 
(1) 011012 017767 007526 007460 MOV @TSR,BAD ;READ STATUS REGISTER 
GQ) 011 026767 007464 007452 CMP GOOD BAD 
(1) 011026 001401 BEQ +4 
(1) 011030 104003 ERR+GB ;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE ? 
(1) 011032 LOOP =sésLP ; 
(2) 011052 000137 011004 JMP aeLP 
826 011056 iors CKTCR #21200,LP :TEST FOR HSO + DONE . 
(1) 011056 012767 021200 007424 MOV’ #21200.,.GooD | 
(1) 011064 017767 007450 007406 MOV a@TCR,BAD ;READ CMD REGISTER 
(1) 011072 026767 007412 007400 CMP GOOD. BAD 
(1) 011100 001401 BEQ +4 
(1) 011102 104003 ERR+GB 3CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
(1) 011104 LOOP =s«aLP | 13 
(2) 011124 000137 011056 JMP aeLP 
827 ;FEED CARDS #2-19, CHECKING INPUT DATA AND PRINTING IN COLUMNS 1-7 
828 011130 012767 000022 00735 MOV #22, CN T1 :C(NT1=18 
829 011136 012767 020046 007360 MOV #CARDO] ,OUTPTR :QUTPTR=CARDO1 
830 011144 012777 021015 007366 P4A: MOV #21015, aTCR TISSUE HSO + SPD + PRI + GO 13 
831 011152 WTODR 
(1) 011152 132777 000200 007376 BITB #200,aTIRHI 
(1) 011160 001774 BEQ 6 zWAIT FOR OUTPUT DATA REQUEST 
832 011162 004767 001212 JSR PC,P4SEND :SEND DATA TO PRINTER 
833 011166 WTIDR 
(1) 011166 032777 000200 007360 BIT #200,aTIR 
(1) 011176 001774 BEQ 6 zWAIT FOR INPUT DATA REQUEST 
834 011176 004767 001302 JSR PC, CKDATA [CHECK INPUT DATA FROM PASSES 2 + 3 13 
835 011202 162767 000002 007304 SUB #2. INPTR 
836 011210 WTDONE 
(1) 011210 032777 000200 007322 BIT #200, aTCR 
(1) 011216 001774 BEQ .-6 zWAIT FOR DONE FLAG 13 
837 011220 iit CKTCR #21214,LP ZTEST FOR HSO + DONE + SPD + PRI 
(1) 011220 012767 021214 007262 MOV #21214,GO0D 
(1) 011226 017767 007306 007244 MOV aTCR,BAD ;READ CMD REGISTER 13 
(1) 011234 026767 007250 007236 CMP GOOD; BAD 
(1) 011242 001401 BEQ +4 13 
(1) 011244 104003 ERR+GB 7(MD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 
(1) 011246 LOOP =sa&LP 13 
(2) 011266 000137 011220 - ayLp | 
838 011272 CKTSR #4010.LP :TEST FOR CIW 13 
(a) 011272 LP=. 
(1) 011272 012767 004010 007210 MOV #4010, GOOD | 
(1) 011300 017767 007240 007172 MOV aTSR,BAD ;READ STATUS REGISTER 
(1) 011306 026767 007176 007164 CMP GOOD BAD 
(1) 011314 001401 BEQ +4 





J 
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| 
ao gn 16 104003 ERR*GB - ;STATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
(2) 011 000137 011272 JMP aap 
B39 011344 artes CKTIR #0,LP ;TEST INTERRUPT REG FOR 0 
@ on 03 33 000000 007136 MOV #0,G00D | 
a) on 017767 007176 007120 MOV aTiR,BAD ;READ INTERRUPT REGISTER 
a) On 026767 007124 007112 CMP GOOD ,BAD 
a) on 001401 BEQ ee; f | 
a) 911320 104003 ERR+GB ; INTERRUPT REG = VALUE READ NOT EQUAL TO EXPECTED VALUE | 
a) 011 LOOPS séaLP 
(2) 017412 000137 011344 JMP avLP | 
840 011416 005367 007064 DEC CNT1 
B41 011422 001250 BNE PA GO PRINT AND READ MORE CARDS | 
Bie :FEED CARD #20 
8% 911424 012777 021015 007106 MOV #21015, aTCR yISSUE HSO + SPD + PRI + GO 
844 0114 WTODR 
(1) 071432 777 000200 007116 BITB #200, aTIRHI 
(1) 011440 001774 BEQ , zWAIT FOR OUTPUT DATA REQUEST 
85 011442 767 000732 JSR PC ,P4SEND :SEND DATA TO PRINTER | 
B46 011446 WTIDR 
(1) 011446 032777 000200 007100 BIT #200, aTIR | 
(1) 011456 001774 BEQ 6 :WAIT FOR INPUT DATA REQUEST 
847 011456 004767 001022 JSR PC, CKDATA :CHECK INPUT DATA FROM PASSES 2 + 3 
B48 011462 162767 000002 007024 SUB #2. INPTR 
849 011470 WTDONE 
(1) 011470 032777 000200 007042 BIT #200, aTCR 
(1) 011476 001774 BEQ ‘ sWAIT FOR DONE FLAG 
850 011500 CKTSR  #4230,LP STEST FOR Clw + IE + HE 
a) 011500 LP=. 
(1) 011500 012767 004230 007002 MOV #4230, GOOD | 
(1) 011506 017767 007032 006764 MOV aTSR.BAD ZREAD STATUS REGISTER 
C1) 011514 770 006756 CMP GOOD; BAD | 
(1) 011522 001401 BEQ +4 
(1) 011524 104003 ERR+GB ;STATUS REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 
(1) 011526 LOOP —sé&LP 
(2) 011546 000137 011500 JMP avLP 
851 011552 sien CKTCR #121214,LP ;TEST FOR ERR + HSO + SPD + PRI + DONE | 
(1) 011552 012767 121214 006730 MOV #121214,GO0D 
(1) 011560 017767 006754 006712 MOV aTCR,BAD ;READ CMD REGISTER 
(1) 011566 026767 006716 006704 CMP GOOD ,BAD 
(1) 011574 001401 BEQ +4 
(1) 011576 104003 ERR+GB 3CMD REG - VALUE READ NOT EQUAL TO EXPECTED VALUE | 
(1) 011600 LOOP =—sé&LP 
(2) 011620 000137 011552 JMP av_P 
852 ZPRINT CARD #20 
895 011624 012777 001415 006706 mov #01415, aTCR ZISSUE CLEAR ERR + SPD + PRI + GO 
| 
(1) 011632 132777 000200 006716 BI1TB #200, aTIRHI 
(1) 011640 001774 BEQ 6 ;WAIT FOR OUTPUT DATA REQUEST | 
855 011642 004767 000532 JSR PC ,P4SEND [SEND DATA TO PRINTER 
856 011646 WTDONE 
(1) 011646 032777 000200 006664 BIT #200, aTCR 
(1) 011654 001774 BEQ 6 ;WAIT FOR DONE FLAG 
857 011656 CKTSR #0,LP :TEST FOR STATUS=0 
i 


; 
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BVsSsssss 
AS a ed el ad a ed 
de tp a 
sesssss ssssssss 
oh ed ad ed dd pw ee 


SAVES BRIS 


PPR PEPE PPP Ps 


RS at et at os st 
+ a at a 


012004 


SERRE REL SLA tf dah i 
So 
8 
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8 
N 
So 
= 
La] 


BVsssss 
TA) et sd et et ed 
ww weve 
oo S 
AIMoROMoNoROON fy 


PANS 


1401 
os003 


000137 
011730 
012767 
017767 
767 
001401 
04003 


012114 
012767 
776 
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4 
006612 
011656 
001214 
006576 
006540 


011730 


006426 
006354 


012114 


006500 
006424 
006406 
006400 


006366 
006350 
006342 


LP=, 
MOV #0, GOOD 
MOV aTSR,BAD 
CMP GOOD .BAD 
BEQ +4 
ERR+GB 
LOOP sa 
JMP avLP 
CKTCR #1214,LP 
MOV #1214, GOOD 
MOV a@TCR,BAD 
CMP : 
BEQ +4 
ERR+GB 
LOOP =s«&LP 
JMP avLP 
RESET 
RTS PC 
: SUBROUTINE TO WAIT FOR CR 
CONTIN: TYPE 
CONMSG 
JSR PC, CKSWR 
CONT1: JSR PC’ TTYIN 
CMP #15 R4 
BNE CONT1 
JSR PC, TTYOUT 
RTS PC 
> SUBROUT INE 
BLKCRD: MOV #1, 
JSR PC’ CKSWR 
BC]: BIT #200, aTIR 
BEQ C1 
MOV #40, GOOD 
MOV @TDR,BAD 
CMP GOOD ,-BAD 
BEQ +4 
ERR+GB+COL 
INC RO 
#121,R0 
BC1 
CKTIR #0,LP 
LP=, 
MOV #0, 
MOV aTiR,BAD 
CMP 7 
BEQ +4 
ERR+GB 
LOOP =s«&LP 
JMP aeLP 
RTS PC 





:1F MORE COLUMNS TO READ GO DO IT 
: TEST THAT IDR IS 0 


; INTERRUPT REG - VALUE READ NOT EQUAL TO EXPECTED VALUE 


SEQ 0028 


sREAD STATUS REGISTER 

sSTATUS REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
:TEST FOR DONE + SPD + PRI 

sREAD CMD REGISTER 


CMD REG = VALUE READ NOT EQUAL TO EXPECTED VALUE 
sEXIT CARD TEST 
:'PRESS CR TO CONTINUE’’ 


GET A_CHAR 


[YES - TYPE CR + LF 


TO TEST FOR BLANK CARD (ALL SPACES) 


READ DATA REGISTER 


| 
i 
| 
| 
| 
} 
| 
| 
sWAIT FOR INPUT DATA REQUEST | 
| 
sDATA REG - COMPARE ERROR AT INDICATED COLUMN 

| 

| 


zREAD INTERRUPT REGISTER 


EXIT | 
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006260 





~~ 






[SEND 7 CHARS TO BE PRINTED 


TOG1 
PC, CKSWR 





MA 
SEQ 0029 | €2¢ 
:PUT SPACE CHAR IN ALL LOCS BF20 = BF1+10 
® d 
WBF 20,R2 
#40 (Re) 
7 4+24 
CB1 | 
PC 
IN LOCS BF20 = BF1 | ; 
j d 
#BF20,R2 
#101, (Ro)+ 
#BF 1+2,R2 
SB 
PC 
ZSEND 80 CHARS BEGINNING AT LOC POINTED TO BY PTR 
PTR,RO 14 
PC, CKSWR 
£120,R1 
#200, aTIRHI 
P :WAIT FOR OUTPUT DATA REQUEST 
(RO) ,@TOR >SEND A CHAR 
#2,R0 1 
R1 yALL 80 CHARS SENT ? | 
P2SD1 [NO - GO SEND ANOTHER ONE 
#200, aT RHI 
g @ 
a ZERROR - GOT MORE THAN 80 ODR'S 
CARD #1 UP TO 20 CHARS TO CARD #20 . 
CARD, TOG1 
em 
#300 aTIRHI 
P3S, ;WAIT FOR OUTPUT DATA REQUEST 
#101 aOR [SEND "‘A'' CHARACTER 
T0G1 ;HAVE ALL CHARS BEEN SENT 
P3SD1 [NO = GO SEND ANOTHER ONE 14 
#200, aTIRHI 
P3SD2 zWAIT FOR OUTPUT DATA REQUEST 
#40, aTDR [SEND SPACE CHAR 
#121,RO 
P3SD2 


sHAVE ALL 80 CHARS BEEN SENT 
NO ~- GO SEND MORE 
“*CARD XX°" AND THEN ALL SPACES 14 


SgeeeR 3 
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006140 


0061 
0060 


006070 
006100 
006062 
006036 


006012 
006030 


005754 
005736 
005730 


005744 
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sWAIT FOR OUTPUT DATA REQUEST 
;SEND A CHAR 


sHAVE ALL Sant lon CHARS BEEN SENT 
; MORE 


NO = GO PRINT 


sWAIT FOR QUTPUT DATA REQUEST 
:SEND SPACE CHAR 


sHAVE ALL 80 CHARS BEEN SENT 
;NO = GO SEND MORE CHARS 


:WAIT FOR INPUT DATA REQUEST 
sREAD DATA REG 


:DATA REG ~ COMPARE ERROR AT INDICATED COLUMN 


4 a COLUMNS TO READ GO DO IT 


CONVERT OCTAL # IN RO TO DECIMAL # AND TYPE OUT DECIMAL # 





: TYPEOUT TENS 


: TYPEOUT ONES 


P4SD1: BITB #200,aTIRHI 
BEQ P4SDi 
MOV @OUTPTR,aTOR 
ADD #2,QUTPTR 
INC 
CMP #7,T0G1 
BNE P4SD1 
P4SD2: BITB #200, aTIRHI 
BEQ PG 
MOV #40, aTDR 
INC 
CMP #120, T0G1 
BNE P4SD2 
RTS C 
COMPARE INPUT DATA PATTERN BEGINNING AT INPTR 
CKDATA: MOV #1,R0 
MOV INPTR,PTR 
(D1: BIT #200, arTIR 
BEG 
MOV STR. GOOD 
MOV @TDR.BAD 
CMP v 
BEQ +4 
ERR+GB+COL 
INC 0 
ADD #2,PTR 
CMP #121,R0 
BNE D1 
RTS PC 
OCTDEC: MOV RO, TOG 
CLR ONES 
CLR TENS 
0D1: INC ONES 
CMP #12, 0NES 
BEQ OD2 
DEC TOG 
BNE 0D1 
BR OD3 
OD2: CLR ONES 
INC TENS 
DEC TOG 
BNE 0D1 
OD3: MOV TENS .R4 
ADD UR 
JSR PC, TTYOUT 
MOV a 
ADD #60,R4 
SR PC. FTYOUT 
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TOG: XX 


SEQ 0031 
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SEQ 0032 
1004 ; INPUT ROUTINE FOR DEVICE ADDRESS, INT VECTOR ADDRESS AND BR LEVEL 
100S 012712 104400 BEVCOD: TYPE Pe 
1006 012714 014654 DCMSG1 ;""THE FOLLOWING VALUES ARE BEING USED 
1007 012716 104400 TYPE 2 a 
1008 012720 014722 DCMSG2 ; DEVICE ADDRESS = 
1009 012722 104406 TYPE +6 
1010 012724 020540 TCR :TYPE TCR ADDRESS 
1011 01 104400 TYPE rs 
ole 012730 014751 DCMSG3 "PC INTERRUPT VECTOR ADDRESS = 
1013 012732 104403 TYPE+3 
1014 012734 020560 PCV ; TYPE PCV ADDRESS 
1015 012736 104400 TYPE a _ 
1016 012740 015015 DCMSG4 ; BUS REQUEST LEVEL = 
1017 012742 104401 TYPE+1 
1018 012744 020 BRLV :TYPE BRLV 
1019 ;TEST TO SEE IF VALUES ARE TO BE’ CHANGED 
1020 012746 104400 TYPE 
1021 750 015047 DCMSGS 37'DO YOU WANT TO CHANGE ANY OF THESE VALUES (Y OR N)?’ 
1022 012752 004767 000700 DC1: JSR PC, TTYIN S INPUT A CHAR 
1023 756 022706 000131 CMP #131,R4 :1S IT Y ? 
1024 012762 001004 BNE Dc2 ZNO = GO CHECK FOR N 
1025 012764 004767 000612 JSR PC, TTYOUT [YES = ECHO Y 
1026 012770 000167 000014 JMP oc :GO GET NEW VALUES 
1027 012774 022704 000116 DC2: CMP #116,R4 tIS IT N ? 
1028 013000 001364 BNE 1 [NO = GO BACK TO INPUT 
1029 013002 004767 000574 JSR PC, TTYOUT [YES = ECHO N 
1030 013006 000207 RTS PC TEXIT 
1031 :VALUES ARE TO BE CHANGED 
1032 013010 104400 DC3: TYPE a 
1033 013012 015135 NCMSG6 3'* ENTER VALUE AFTER (=) IS TYPED 
1034 013014 104400 TYPE , 
1035 013016 014722 DCMSG2 "' DEVICE ADDRESS = ** 
1036 0 012705 000006 MOV #6,R5 
1037 013024 004767 000464 JSR PC-RDOCT ZGET NEW DEVICE ADDRESS 
1038 013030 042704 000007 BIC #7 RG 
1039 013034 012705 020540 MOV ATCR_RS 
1040 013040 042715 177770 DC4: ~—=«BIC #177770, (RS) 
1041 013044 050425 BIS R4, (R5)+ ZSTORE 4 NEW DEVICE ANDRESSES 
1042 013046 020527 020560 CMP R5.APCV 
1063 013052 001372 BNE pc 
1044 013054 TYPE 
1045 013056 014751 DCMSG3 z’"  PC_ INTERRUPT VECTOR ADDRESS = °° 
1046 013060 012705 000003 MOV #3,R5 
1047 013064 004767 000424 JSR PC-RDOCT :GET NEW INT VECTOR ADDRESS 
1048 013070 010467 005464 MOV R4.PCV 7SET NEW PC VECTOR ADDRESS 
1049 013074 062704 000002 ADD #2._RG 
1050 013100 010467 005456 MOV R4.PSV ;SET NEW PS VECTOR ADDRESS 
1051 013104 104400 TYPE 
1052 013106 015015 DCMSG4 z’' BUS REQUEST LEVEL = *’ 
1053 013110 012705 000001 MOV #1,R5 
1054 013114 004767 000374 JSR PC-RDOCT :GET NEW BR LEVEL 
1055 013120 010467 005440 MOV R4.BRLV :SET NEW BR LEVEL 
1056 013124 000207 RTS PC SEXIT 
1058 ZERROR SUBROUTINE 


1059 ; 
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1060 013126 004767 000552 ERROR: JSR PC, CKSWR 

1061 01 138 032777 020000 165340 BIT #20000, aSwR 

106¢ 013140 001403 BEQ +10 z1S LOOP ON ERROR SELECTED ? 

1 01 Ise 012767 000001 005362 MOV #1,SCOPE TYES = SET SCOPE TO A 1 

1064 013150 011667 005342 MOV (SP) ,LASTPC [PUT ADDRESS OF ERROR IN LASTPC 

1065 013154 032777 040000 165316 BIT #40000, aSwR SIF $R14=1 DELETE TYPEOUT 

1066 013162 001041 BNE E3 SEXIT NOW 

1067 013164 104400 TYPE 7 

1068 013166 015335 PCMSG :"ERROR AT ADDRESS 

1069 013170 011667 005302 MOV (SP) ,ADR 

1070 013174 162767 000002 005274 SUB #2,ADR 

1071 013202 104406 TYPE+6 

1072 013204 020476 ADR :TYPE CONTENTS OF ADR 

1073 013206 032777 000002 005262 BIT #2, BADR :TYPE GOCD ? 

1074 013214 001404 BEQ E1 :NO 

1075 013216 104400 TYPE ei 

1076 013220 015361 GDMSG :" 'GOOD= 

1077 013222 104406 TYPE+6 

1078 013224 020510 GOOD :TYPE CONTENTS OF GOOD 

1079 013226 032777 000001 005242 €1: BIT #1,@ADR [TYPE BAD ? 

1080 013234 001404 BEQ E2 ; 

1081 013236 1044 TYPE 

1082 013240 015370 "BAD =" 

1083 013242 104406 TYPE+6 

1084 013244 020500 BAD ;TYPE CONTENTS OF BAD 

1085 013246 032777 000004 005222 €2: BIT #4, @ADR 

1086 073254 001404 BEQ E3 

1087 013256 104400 TYPE 

1088 013260 015377 COLMSG "COLUMN #=" 

1089 013262 004767 177306 JSR PC,OCTDEC :TYPEOUT DECIMAL COLUMN # IN ERROR 

1090 013266 012704 000015 E3: MOV #15,R4 

1091 013272 004767 000304 JSR PC, TTYOUT ;TYPE CR + LF 

1092 013276 032777 100000 165174 BIT #100000,aSWR  :IF SR15=1 | 
1093 013304 001001 BNE E4 [BYPASS THE ERROR HALT | 
1094 013306 000000 ERRHLT: XX TERROR HALT 
1095 013310 000002 E4: RTI TEXIT | 
1097 ;DETERMINE IF THIS TYPEOUT IS FOR MESSAGE OR OCTAL VALUE AND BRANCH ACCORDINGLY 
1099 013312 011603 TYPOUT: MOV (SP) ,R3 :GET PC FROM STACK 

1100 013314 162703 000002 SUB #2,R3 SSUBTRACT 2 

1101 013320 032713 000007 BIT #7. (R3) STEST LOW ORDER 3 BITS OF TRAP INSTRUCTION 
1102 013324 001401 BEQ TYPMSG iF 0'S GOT G 

1103 013326 000417 BR TYPOCT F NOT 0'S GO 10 TYPOCT 

1105 ZMESSAGE TYPEOUT - RS=ADDRESS OF BEGINNING OF MESSAGE 

1107 013330 011604 TYPMSG: MOV (SP) .R4 

1108 013332 011405 MOV (R4) RS ZRS=ADDRESS OF MESSAGE 

1109 013334 112504 ™1:  MOVB (R5)+,R46 [PUT CHAR IN R46 

1110 013336 001410 BEQ ™™3 Z1F_1T EQUALS 0 TERMINATE 

1111 013340 022704 000046 CMP #46,R4 [DOES CHAR = CRLF FLAG ? 

1112 013344 001002 BNE ™2 :NO ~ 60 TYPE CHAR 

1113 013346 012704 000015 MOV #15,R4 TYES - TYPE CR¢LF 

1114 013352 004767 000224 T™M2: JSR PC, TTYOUT *G0 TYPE cores OF RS 

1115 013356 000766 BR T™i :GO GET NEXT CHAR 
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C2C SEQ 0034 €2C1 
1116 013360 062716 000002 ™3: ADD #2, (SP) ;ADD 2 TO SP FOR RETURN 1 
7 013364 000002 RTI TEXIT u¢ 
a sOCTAL TYPEOUT = R4&=VALUE RS= OF DIGITS TO TYPE if 
1121 013366 011305 TYPOCT: MOV (R3) RS 1¢ 
11 4 013570 042705 177770 BIC #177770,R5 :RS = # OF DIGITS TO BE TYPED 1¢ 
1123 013374 062703 900092 ADD #2,R3 1¢ 
1124 013400 011367 00512 MOV (R3) PT 16 
1125 013404 017704 005116 MOV @PT ,R4 3R4 = VALUE TO BE TYPED 1é 
1126 013410 010567 005070 MOV R5S,CNT :SET CNT FOR STACKING 1¢ 
1127 013414 010467 005114 TO.7: MOV R4. TEMP [PUT VALUE IN TEMP 1€ 
1128 013420 042767 177770 005106 BIC #177770,TEMP = :MASK OUT ALL BUT BITS 2,140 1¢ 
1129 013426 062767 000060 005100 ADD , TEMP [MAKE ASCII NUMBE 1€ 
1130 013434 016746 005074 MOV TEMP ,-(SP) ;STORE NUMBER ON STACK 1é 
1131 013440 006004 ROR R4 1é 
1132 013442 006004 ROR R4 1é 
1133 013444 006004 ROR RG 1€ 
1134 013446 005367 005032 DEC CNT z1F CNT IS NOT ZERO 1€ 
7135 013452 001360 BNE TO.1 3;GO STACK ANOTHER NUMBER 1€ 
1136 013454 022705 000006 CMP #6,R5 1é 
1137 013460 001002 BNE T0.2 71F 6 NUMBERS WERE SELECTED 16 
1138 013462 042716 000006 BIC #6, (SP) 7CLEAR BITS 1+0 OF LAST NUMBER STACKED 1é 
1139 01 010567 005012 TO.2: MOV R5,CNT [SET CNT FOR TYPING 16 
1140 013472 012604 10.3: MOV (SP) +,R4 :GET A NUMBER FROM THE STACK 16 
1141 013474 004767 000102 JSR PC, TTYOUT [TYPE THE NUMBER 16 
1142 013500 005367 005000 DEC CNT Z1F COUNT IS NOT ZERO 16 
1143 013504 001372 BNE T0.3 :GO TYPE ANOTHER NUMBER 16 
1144 013506 062716 000002 ADD #2, (SP) sADD 2 TO SP FOR RETURN 16 
1145 013512 000002 RTI TEXIT 1¢ 
by sOCTAL TYPEIN - RS=AOF DIGITS TO BE INPUT INTO R4 i 
1149 013514 010567 004764 RDOCT: MOV R5,CNT ;CNT=4 OF DIGITS TO BE INPUT 16 
1150 013520 7 005010 CLR TEMP 16 
1151 013524 004767 000126 RD.1: JSR PC, TTYIN :GET CHAR FROM TTY 16 
1152 013530 004767 000046 JSR PC’ TTYOUT SECHO IT 16 
1153 013534 042704 177770 BIC #177770,R4 [MAKE CHAR OCTAL 16 
1154 013540 006167 004770 ROL TEMP 16 
1155 606167 004764 TEMP 16 
1156 013550 006167 0047 ROL TEMP | 16 
1157 013554 042767 000007 004752 BIC #7, TEMP :CLEAR TEMP BITS 2,140 16 
1158 013562 060467 04746 ADD R4. TEMP [ADD INPUT CHAR TO OTHERS 16 
1159 005367 604712 DEC CNT 31F ALL CHARS NOT READ IN 16 
1160 013572 001354 BNE RD.1 :GO READ ANOTHER ONE 16 
1161 013574 016704 004734 MOV TEMP,R4 [PUT FINAL OCTAL VALUE IN R4 16 
1162 013600 000207 RTS PC TEXIT 1¢ 
Hy 7) s TYPE THE CHARACTER IN R4 16 
1166 01 32777 040000 164670 TTYOUT: BIT #40000, aSWR yIF SR14=1 DELETE TYPEOUT 16 
1167 013610 001021 BNE TT0.3 16 
1168 013612 010467 163750 MOV R4, TPB ZTYPE CHAR IN R4 16 
1169 013616 105767 163742 170.1: TSTB TPS 16 
1170 013622 100375 BPL TT0.1 ;WAIT FOR DONE 16 
1171 013624 022704 000015 CMP #15.R4 [WAS IT A CR ? 16 
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000012 


ewes 004654 


163676 
000200 163670 


163664 
177600 


000176 164566 
163640 
163634 
177600 
000007 
164546 000001 
014211 


163554 
163550 
177600 
000025 
014204 
000006 


000015 
000004 
000002 164420 
000010 


014240 


:READ CHAR FROM 





:1F NO = GO EXIT 


YES = PUT ‘d IN R4 


3 IF 
7G0 TYPE THE L 


EXIT 


FETCH A CHAR 


sWAIT FOR DONE FLAG 


sREAD CHAR IN 


TO R4 
;MASK R4 WITH ALL BUT 177 


: #SOF TWARE SW1TCH iy by CHANGE nog dh yy SO 


;*ROUTINE IS ENTERED F 

2 *SERVICE THE TEST FOR 
*WHEN OPERATING IN TTY FLAG MODE. 
CMP #SWREG,S 


iks 
BNE 
TSTB 


GTSWR: TYPE 


K19: ae 
K7: TSTB 
BPL 


K9: CMP 
BNE 


K20: 
BR 
K10: CMP 


BNE 
TST 
BEQ 


K11: ADD 
:TTY INPUT ROUTINE 
k14: TYPE 


K 
TKS 


TKB, (SP) 
#*C177, (SP) 
#7, (SP5+ 
K15 
AUTOB, #1 
K15 


TKB,-(SP) 
#°C177, (SP) 
(SP) M25 


SSP), aSWR 
#10,SP 


- CRLF 


ROM TRAP HANDLERR WILL 
CHANGE IN SOFTWARE 'S SWITCH REGISTER TRAP CALL 


21S THE SOFT-SWR SELECTED? 
BRANCH IF NO 


7 CHAR THERE? 
7 IF NO,DON'T WAIT AROUND 


;SAVE THE CHAR 
ha OFF THE ASCII 
31§ IT A CONTROL G? 


2NO RETURN TO USER 
ARE WE Ge eae IN AUTO-MODE? 


{BRANCH F 
A THE CONTROL-G ( 
TYPE CURRENT CONTENTS” 


‘SAVE SWREG FOR TYPEOUT 

GO TYPE-OCTAL ASCII(ALL DIGITS) 
[PROMPT FOR NEW SWR 

:CLEAR COUNTER 

NEW SWR 

CHAR THERE? 


i1F NOT TRY AGAIN 
CK UP_CHAR 


MAKE 7 7-BIT ASCII 


2IT IS A CONTROL-U? 
H IF 


BRANCH IF NOT 
7YES ECHO Sere tne U(*U) 


2 IGNORE PRE NPUT 
ZLET'S ~ IT Faas 
-IS ITA ar 


sBRANCH IF 
ZYES.1S IT THE FIRST CHAR? 
;BRANCH IF YES 


§ NEW SWR 
7CLEAR UP STACK 


zECHO <CR> AND <LF> 





ge 
= as | 


aR St I RR RP Ss FB BI BS BR SS SS SS SS A 2 3 SS 2 SS SS SS) SS SS SS SS Sh SS sn 
ft te te te he he te ee ee hh le Oe Ve Ve Ve es Ve Oe Oe Ve Ve Ve Oe Oe Ve Oe Ve On On Oe 





-MAIN. 
C 


ZCTAA.SRC 


sana F 


i a ed ds dd dt 
~N 


BEEP 


0 
014134 
0 


014226 
014234 


014237 


MACY] . 


(1052) 
Y-80 1 


126727 
00 
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164420 000001 
000100 163452 
000356 
000060 


000067 


000060 
000002 


000002 
177776 
014237 


005015 
006507 000012 
053523 036522 


042516 020127 
000 


K15: 
K16: 


K17: 


K18: 
TTYN: 


CNTLU: 
CNTLG: 
MSWR: 


MNEW: 


QUES: 
rik 


SEQ 0036 


CMPB INTAG,41 ;RE-ENASLE TTY KBD INTERRUPTS 
BNE K ‘BRANCH I 
MOV #100, TKS RE-ENABLE TTY KBD INTERRUPTS 
RTS PC TURN 
JSR PC, TYPEC aa CHAR 
CMP (SP) ,460 :CHAR < < 0? 
BLT K18 [BRANCH IF YES 
CMP (SP) ,467 CHAR > 7? 
BGT K18 + BRANCH IF Y 
BIC #60, (SP)+ sSTRIP-OFF ASCII 
TST 2(SP) 31S THIS THE FIRST CHAR 
BEQ K17 ;BRANCH IF YES 
ASL (SP) NO SHIFT PRESENT 
ASL (SP) 3 OVER TO MAKE 
ASL (SP) sROOM FOR NEW ONE 
INC 2(SP) sKEEP COUNT OF CHARACTER 
BIS =-2(SP), (SP) [SET IN NEW CHAR 
R K7 3GET THE NEXT ONE 
TYPE QUES TYPE ieee 
K20 : SIMULAT E CONTROL-U 

-BLKB 12. Ag ly | "9 BYTE FOR TTYT 
eASCIZ /*U/<15><12>  ;CONTROL ‘ 
eASCIZ /*G/<15><12> ;CONTROL Be 
eASCIZ <15><12>/SWR= / 
eASCIZ / NEW = / 
werd /?/ sQUESTION MARK 

ASCII <15> see ree RETURN 

CIZ <12> LINE FEED 


“AS 
AE. Fel ES A __ 


:THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO 
AND TYPE I 


2*A 6-DIGIT OCTAL (ASCII) T 
*TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF 
ee Se da TO TYPE 


Py 
** 
° 

s¢ 
-* 


° 





NUMBER 


MOV NUM ,~(SP) ;NUMBER TO BE TYPED 

TYPOS 7CALL FOR TYPE OUT 

-BYTE WN ;N=1 TO 6 FOR NUMBER OF DIGITS 
:*TO TYPE 

7* -BYTE ™ 


7M=1 ORO 
71=TYPE LEADING ZEROS 
70=SUPPRESS LEADING ZEROS 

{1 YPON——-E NTER HERE TO TYPE OUT WITH THE SAME PARAMETERS 
3* 

:*TYPOS OR TYPOC 

>*CALL: 
NUM, -(SP) 


NUMBER TO BE TYPED 
:CALL FOR TYPEOUT 






DBODooow 
BSSserse 
A ss SS SS 3 3 — 
AMA =i fRin Bi 1M 1 


NN 


pay 
KOONOULS Ww 


-MAIN. MACY11 a's ae 14:57 PAGE 3-5 
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CZCTAA.SRC. 1 SEQ 0037 
1388 : sTYPOC==-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
1 * MOV NUM, = (SP) :NUMBER TO BE TYPED 
1285 :* TYPOC SCALL FOR TYPEOUT | 
1286 014244 EVEN | 
1287 014 017646 000000 TYPOS: MOV @(SP),=(SP) — ;PICKUP_THE MODE 
1288 01 116667 000001 000211 MOVB 1<SP), *FILLO LOAD ZERO FILL SWITCH 
1289 01 112667 000207 MOVB SP)+°MODEO+1 NUMBER OF DIGIT TO TYPE 
1290 014262 716 000002 ADD we (SP sADJUST RETURN ADDRESS | 
1291 014266 900406 BR TYPON 
1298 014270 112767 000001 000171 TYPOC: MOVB #1,FILLO zSET THE ZERO FILL SWITCH 
1293 014276 112767 000006 000165 MOVB #6,MODE0+1 TSET FOR SIX(6) DIGITS 
12% 014 112767 000005 000154 TYPON: MOVB #5.CNTO ZSET THE ITERATION COUNT | 
1295 014312 010346 MOV *=(SP) SSAVR R3 | 
1296 014314 010446 MOV R4.=(SP) SSAVE R4 
1297 014316 010546 MOV R5,=(SP) TSAVE RS | 
1298 014320 116704 000145 MOVB  MODE0+1,R4 [GET THE NUMBER OF DIGIT TO TYPE | 
1299 014324 00 NEG RG 
1300 014326 062704 000006 ADD #6 RG : SUBSTRACT ob! FOR MAX. ALLOWED 
1301 014332 110467 000132 MOVB = R4.MODEO TSAVE IT FOR USE | 
1302 014336 116706 000125 MOVB FICLO RG [GET THE ZERO FILL SWITCH 
1303 014342 016605 000010 MOV SP5 RS [PICK UP THE INPUT AMMBER 
1304 014346 005003 CLR RS. ;CLEAR THE OUTPUT, WO! 
1305 014350 006105 Al: ROL R5 [ROTATE MSB INTO wore | 
1306 014352 000404 BR A3 [GO TO MSB 
1307 014354 006105 A2: ROL R5 [FORM THIS DIGIT 
1308 014356 006105 ROL R5 
1309 014360 105 ROL | 
1310 014362 010503 MOV R5_R3 
1311 014364 006103 A3: ROL R3 GET LSB OF THIS DIGIT 
1312 014366 105367 000076 DECB  MODEO : TYPE THIS DIGIT? | 
1313 014372 100022 BPL A7 7BR IF NO 
1314 014374 042703 177770 BIC #177770,R3 7GET RID OF JUNK 
1315 014400 001002 BNE AG :TEST FOR 0 
1316 014402 005704 TST R4 : SUPPRESS THIS 0? 
1317 014404 001403 BEQ AS :BR IF ves 
1318 014406 005204 AG: INC R4 [DON'T SUPPRESS ANYMORE 0° 
1319 014410 052703 000060 BIS #'0,R3 [MAKE THIS DIGIT ASCII 
1320 014414 052703 000040 AS: BIS #* (RS ZMAKE ASCII IF NOT ALREA ‘ 
1321 014420 110367 000040 MOVB —R3, AB ZSAVE FOR TYPING 
1322 014424 MOV R4_-(SP) 
1323 014426 010546 MOV R5,-(SP) : 
1324 014430 1 014464 TYPE :GO TYPE THIS DIGIT 
1325 014434 012605 MOV (SP)+,R5 
1326 014436 012604 MOV (SP)+,RG 
1327 014440 105367 000022 A?: DECB 10 7 COUNT BY ONE 
1328 014444 003343 BGT [BRANCH IF MORE TO DO | 
1329 014446 002402 BLT A6 [BRANCH IF DONE 
1330 014450 005204 INC R4 Z INSURE LAST DIGIT IS NOT A BLANK 
1331 014452 000740 BR A2 
1332 014454 012605 AG MOV (SP)+,R5 ZRESTORE RS 
1333 014456 012604 MOV (SP)+-RG ;RESTORE RG 
1334 014460 012603 MOV (SP) +°R3 ZRESTORE R3 | 
1335 014462 000207 RTS PC 
1336 014464 000 As: BYTE 0 ZSTORAGE FOR ASCII DIGIT 
1337 014465 000 ‘BYTE 0 [TERMINATOR FOR TYPE ROUTINE | 

| 











a 
REGS 


#¥ 
Wy 


BIRR ASSESSES 


Ww 
w 
o 


SYSIRTSSSE RRR RR EES 


1 


3 


1380 
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163066 
00015 
000014 
014241 
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163060 
00000. 


163662 
163656 


163644 
163626 


020105 


Bi: 


N 
CHARCNT : .WORD 


TYPEX: 


RTS 





SEQ 0038 
0 -OCTAL DIGIT COUNTER 
0 ;ZERO FILL SWITCH | 
0 {NUMBER OF DIGIT TO TYPE | 
TPs :WAIT UNTIL THE PRINTER IS READY 
2(SP),TPB | LOAD CHARACTER TO BE TYPED INTO DATA REG | 
#5, »2¢SP) 31S CHAR CARRIAGE RETURN? | 
CHARCNT :YES CLEAR CHAR COUNT 
TYPEX XIT 
#LF ,2(SP) oS CHAR LINE | FEED? 
TYPEX BRANCH IF 
(PC) + [COUNT THE CHARS 
0. SCHARACTER COUNT SPACE 


SIZE FOR A HARDWARE 1 Fon a. Sas tanh IF NOT FOUND OR IT 


eASCIZ /8&THE FOLLOWING VALUES ARE BEING USED/ 


| 
| 
| 
| 
} 
;EQUAL TO A ''=1"", SETUP FOR A SOFTWARE SWITCH REGISTER. 
CK: MOV § @WERRVEC,-(SP) SAVE ERROR VECTOR 
MOV ARTI -GWERRVEC "= SET UP_ ERROR VECTOR 
MOV ,SWR ;SET UP FOR HARDWARE Sur 
MOV —- #DDISP, DISPLAY A E DISPLAY REGISTER 
CMP ss #=1,aSUR :TRY TO REFERENCE HARDWARE. Sun 
BNE —-RT3 SBRANCH IF NO TIME QUT TRAP OCCURED 
ZAND. THE WR IS NOT = -1 | 
BR RT2 SBRANCH IF NO TIME OUT 
RTI: Oy ARTZ, (SP) SET UP FOR TRAP RETURN | 
RT2: MOV #SWREG, SWR :POINT TO SOFTWARE SwR 
MOV #DISPREG, DISPLAY 
RT3: MOV  — (SP)+,@WERRVEC  ;RESTORE ERROR VECTOR 
CLR APASS CLEAR PASS COUNT | 
BITB #200, AENVM TEST USER SIZE UNDER APT 
BEQ RTS ,USE NON-APT SWITCH 
MOV - #ASWREG, SwR INO.USE APT SUITCH REGISTER 
R14: RTS PC 
| 


: .ASCIZ /& 


: .ASCIZ /& 


DEVICE ADDRESS = 


PC INTERRUPT VECTOR ADDRESS = 


/ 
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1381 


1382 


1383 


1384 


1386 


1387 


1388 
1389 
1390 
1391 


g 
g 
SENSESS 


SRE RRENGS 


ee me ed ed ng ee ce ed ed OS ed 
SURX 


SeseseseooSeseoeseseooooooooooo 


VII MUVIVIUIUVIVIVT 
Set St et 
VEKSTEARR 


015177 
015204 


aS 


SEG RSS GEER 
MSSPLSURSeSSsSEF 


ese g 
cere 


oo 
RES 
MEY 
NOON 


) 
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14:57 
020123 


05152 


40 
051101 
051505 
052040 
052116 

000 
sie 
051508 
042117 
036440 
052514 
0000 


05 
051440 


DCMSG4: 


DCMSGS5: 


DCMSG6: 


LOGTST: 


INITM1: 


CONMSG: 


PCMSG: 


GDMSG: 
BDMSG: 


COLMSG: 
T2MSG1: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 
eASCIZ 


SEQ 0039 | 
' 


/% BUS REQUEST LEVEL = / 


/&&D0 YOU WANT TO CHANGE ANY OF THESE VALUES (Y OR N)?/ 


/& ENTER VALUE AFTER (=) IS TYPED/ 


/BRxxxee LOGIC TESTS sxaxx8Q/ 


/&8PUT 8035-8045 OFF-LINE, REMOVE ALL CARDS/ 


/@PRESS CR TO CONTINUE/ 
/@BERROR AT ADDRESS / 


/&G00D=/ 

/8BAD =/ 

/&COLUMN #=/ 

/&8PUT 8035-8045 ON-LINE AND PRESS START ON THE 8035-8045/ 





MAIN. MACY11 (1052) Malia 14:57 PAGE 3-8 
‘ean 14:57 


CZCTAA. SRC 
. o ae 
pense TSM1: eASCIZ /88PUT 8035-8045 OFF=LINE/ 
AL 


1392 


MVIVIVIVA 


308 TSM2:  .ASCIZ /8B8PRESS START ON THE 8035-8045 / 


SENER MSN SS NY 
ee 
SPURS 
Sees 
eB 
esses 
e2 


ax 
aves 


1394 


a a at ag st os st = as = 


052520 oseilt TSMSG1: .ASCIZ /8®PULL CARD PLATE OF STACKER #1 BACK TO POSITION WHICH/ 


— 
yi 
ooo 
ss 
s2s 
a 


ae 


FEeRee 
3 
ge 
38 


rs 
3 

: a 

wS2S 

g So 

Ww 

Meters 
RISE 

SEEN 

=yee 

N io 


ab 
Son 


| 

} 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

015656 | 
1395 015665 046 orks tf 046114 TSMSG2: .ASCIZ /@WILL SIMULATE STACKER FULL AND RELEASE/ . | 
| 

| 


Eeek 
: 


ee 
ig 
si 

RSS 

#5 
85 
Se 
MoO 
we 


015730 000 
1396 015735 046 051120 043517 TSMSG3: .ASCIZ /®PROGRAM WILL WAIT FOR STACKER FULL FLAG/ 
04052 044527 


000107 
1397 016006 023046 o241s8 051305 TSMSG4: .ASCIZ /8&PRESS START ON THE 8035-8045 / 


16044 
1398 016046 052520 psetis TSMSGS: .ASCIZ /88PULL CARD PLATE OF STACKER #2 BACK TO POSITION WHICH/ 


1399 35 046 050046 042522 TSMSG6: .ASCIZ /&BPRESS START ON THE 8035-8045 / 
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1400 


1401 


1402 


1404 


1405 


1406 


CZCTAA. SRC 


oO 
= 
o 
— 


Eee 


lolwlololelelelololololo] 
2353355555554 


oo 


a ( 


05) 3 5144 
Ba Sats 
eel 


524 

116 
030070 
0 


0 
0 
51505 
51101 


052040 
031460 
032464 


025052 
042122 
051524 
025052 


020116 
051440 


TSMSG7: 


T6MSG1: 


CRDTST: 


P1MSG1: 


 PIMSG2: 


P1MSG3: 


P2MSG1: 
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-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/@RPRESS START ON THE 8035-8045 / 


/@PRESS START ON THE 8035-8045 / 


/@Rxxexe CARD TESTS *xxenQQ/ 


/@RREMOVE ALL CARDS AND PUT THE 8035-8045 OFF=LINE/ 


/@8PUT 10 BLANK CARDS IN EACH INPUT HOPPER/ 


/@PUT 8035-8045 ON-LINE AND PRESS START ON THE 8035-8945/ 


/@VERIFY THAT THERE ARE 10 BLANK CARDS IN EACH STACKER/ 





SEQ 0041 
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MACY11 


CZCTAA.SRC 


1407 


1408 


1409 


1410 


1411 


1412 


1413 





016634 


eooeeose 
deeanaed 


ooo 
= 


040524 
000 


045503 


P2MSG2: 


P2MSG3: 


P2MSG4: 


P3MSG1: 


P3MSG2: 


P4MSG1: 
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-ASCIZ 


-ASCIZ 


-ASC1Z 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-MA] 
SEQ 0042 czc! 


/®@PLACE ALL 20 CARDS IN THE PRIMARY HOPPER/ 


/@PRESS STOP-RESET AND PRESS START ON THE 8035-8045 / 


/@PRESS STOP=RESET ON THE 8035-8045/ 


/&VERIFY THAT ALL CHARS WERE PUNCHED ON EACH CARD IN A/ 


/@PRECESS FASHION BEGINNING WITH COLUMN 11 OF 1ST CARD/ 


/&VERIFY THAT THERE IS 1 ‘‘A’’ CHAR PUNCHED IN CARD 1/ 


PROGNM: .ASCIZ /&*** DECSPEC-11-CZCTAAO-CTS11-JC-7 BIT ASCII-TEST ****@/ 





1414 


-MAIN, al i ) 
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getty 


ont 
0 38 


“ua 14:57 PAGE 3-11 


e 


osotos 30083 
bc 1ec6 44 
050040 
04210 
04050. 
047105 


0c8516 


P4MSG2: 


ENDMSG: 


BF 
BF 
BF 
BF 
BF 
BF 
BF 
BF 
BF 
BF 
BF 
BF 
BF 
BF 
BF 
BF 
BF 
BF 
BF 
BF 


“Fastavthanaa 


=—NMWWERUA NO 2 2 sr ny 


-ASCIZ /®8UP TO 20 ‘'A’* CHARS PUNCHED IN CARD 20/ 


eASCIZ /®8BEND OF TESTING&&/ 





SEQ 0043 





So0o00o 
22535254 


So 
= 


SegaReREeS 


Ww 
py 
So 
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017602 
017604 
gorg 
761 
7614 
7616 
7620 
017622 
017624 


00005. 
00005 
000054 
000055 


000106 


BEERS EE EEE EEEEEEEEEEEE 
OR rp an ya pe ee 


5 


RALARISVRALG 


77 
100 


NOUEWN—ON Wwn— 


NOU EWN 


SRS Ht SS Ss St Ss Ss Ss Ss Ss Ss SS Ss Ss SS SS SS Ss SS YY SS SS SS I SS 


wns 


SEQ 0045 


oO 

. PSSSS SESS SSS SS SSS SSS SSS SS GS STS ees S SNS og ySSNSeguSSNSeg 355 
=< - ~ Mal 

. 8 8 8 
‘ SS ee es es 
id 

ds 

"z 

83 sceccesoscesceesss SISSSNSYSSSSNSISYSSNSYSBSSN 
Ee 


1 


9 ee 


oooooooO 


SEEEESEES 
SES SEDULESSELUCES SEL CGR ELE cuseausaciantaetss 


aedetetet ttt TNO DAMON RRR RR ER K Tatar tata eM eR 


PRADA AHADARAAAAARAARAAAAADARAARRARARARARAAAARAAIAIARARARA 


MACY11 
7762 
7764 
the 
7774 
777% 

020000 


CZCTAA.SRC 


-MAIN. 






SEQ 0046 
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CZCTAA. SRC 


| MAIN. 


NS Mee MeN Mew pabae nb § Mee MeN Men 
NOOCOMOCOMOOCOCOVWOCOMOOCOCR. CON FSRESH SO CONCO- COONS Or--- CON O-nuoS 
wer TOOe— ne ee - VT OO meee OrererevT mReerere vy Ree vs O rrr TOOr KK vy OUOr— 


3 
3 


CARDO7 
CARDO8 
CARDOS: 
CARD10: 
CARD11 
CARD12 
CARD13 


ee 


- 
So 

-——— 
§ MMMM 
w 


RERRERERE ADE R RRR RAR RRR ERROR AROS 


Ba han th ty hy yy hy yy yy Dy hy hy hy iy hy hy by hy hy Ay hy hy bp by by AD 


seeees 


SSESSSS 


020224 
020226 000108 
020230 000101 
020232 000122 
020234 000104 
020236 
020240 
020242 
020244 
020246 
020250 

1603 020252 
020254 
020256 
020260 
020262 
020264 
020266 
020270 000104 





-MAIN, 
Zz 


MACY11 


CTAA. SRC 


ab a aah al el 
& 
Ww 


SEBS RAPER eSS RRR 


mk ts at a 2 8 2 2 ts a 
— 


$88 


1645 


. 


: 


ses 


020346 
020350 000064 


020352 
54 
020356 
360 
020362 
020364 
020366 
020370 


020372 
020374 


Be 


ss SES 


: 
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1 
1 
4 
6 
6 
1 
1 
1 
1 
4 
6 


CARD14: 


CARD15: 


CARD16: 


CARD17: 


CARD18: 


CARD19: 


CARD20: 


™m 
Nm 


“SENSES 


° 3 2 2 IO & 2 2 SO BS SS KO BS SQ fs Ss Qh foo oes 
mS NwOO——SoONooo— Nm -_ 

SO RRR RNS S SRN SRS SaNSes Sense *senegt 
2 


6 


ie ee 


J 4 
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CZCTAA. SRC 1 57 SEQ 0048 
1679 020476 000000 ADR: XN 
1680 5 000000 BAD: XX 
er} 000000 — o 
isa 506 800000 0000 CNT1: XX 
1684 19 000000 : Xx 
1685 020512 000000 D: Xx 
1686 osale 000000 TR: XX 
1687 16 000000 LASTPC: XxX 
1688 020520 000000 LEVEL: XxX 
1689 G20522 000000 LOC: x 
690 020524 000000 OUTPTR: XX 
1691 020526 000000 PT: XX 
1692 020530 000000 PTR: XX 
1693 020532 000000 SCOPE: XX 
1694 020534 000000 TEMP: XX 
1695 020536 000000 TOG1: XX 
1696 
1697 $ 
y+ | pxxananxkxe DEVICE ADDRESSES ««xxnnnnx 
16 HY 
1700 020540 177160 TCR: 177160 
1701 020542 177161 TCRHI: 177161 
1702 020544 177162 177162 
1703 020546 177163 TSRHI: 177163 
1704 020550 177164 TDR 177164 
1705 020552 177165 TDRHI: 177165 
1706 020554 177166 TIR: 177166 
a4 020556 177167 TIRHI: 177167 
1708 j*eeeeeee INTERRUPT VECTOR ADDRESSES *«ex00% 
1711 020560 000230 PCv: 230 
a4 020562 000232 PSV: 232 
at rtiitie BUS REQUEST LEVEL *«««naa0 
1 ; 
fas 4 020564 000004 BRLV: 4 
1718 000001 - END 
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LEVEE 


8 


al ad cd ca cd ae ce ed aed eed ed 
OWONAUELIN=O 






wht bb by 


1073 1079 1085 16794 


650 656 665 692 716 
17164 
925 16814 






-MAIN. MACY11 cs ) 19-MAY=80 14:57 PAGE 4-1 
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16004 
16074 
16144 
850 16 16214 
33 16354 
18 020376 1642 
18 16568 
d20c43 16684 
020460 16704 
012174 8944 896 
012516 9654 966 975 
014536 1349" 13544 
01 762 776 790 822 
013704 595 867 877 910 
012170 688 8934 
570* 571* 573* 575* 
1159* 16824 
014211 1203 12524 
14204 1216 12514 
14466 1294* 1327" 13384 
632* 638* 653* 660* 
= 2414 884 971 
015377 1088 13904 
015307 866 13864 
012006 376 417 495 500 
012016 8684 870 
016274 591 14024 
014240 1227 12584 
014654 1006 13784 
014722 1008 1035 13794 
014751 1012 1045 13804 
015015 1016 1052 13814 
015047 1021 13824 
015135 1033 13834 
012752 10224 1028 
012774 1024 10274 
013010 1026 10324 
13040 1040# 1043 
3294 
380 
468 
558 
649 
707 
792 
884 


1371* 


834 
927 


577* 


698* 


536 


L 4 
CROSS REFERENCE TABLE == USER SYMBOLS 


847 
945 
609* 


708* 


548 


9634 

1060 11934 

610* 612* 1126* 
769* 782* 828* 


568 594 603 


419 420 421 
484 485 5 
608 614 615 
659 666 

723 724 733 
800 825 


1134* 


840* 


687 


1139* 


16834 


757 


SEQ 0050 

1142* 1149 
816 8654 
450 
516 527 
6 635 

695 
765 766 
839 = 850 
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€1 013226 

ES 01 

E 01 

E4 01 19 

ad 01446 
= 

@ = 00000 


020520 
014241 
oc 

OGTST 015177 
= 012114 
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CROSS REFE 
10794 
10854 
1086 10904 
10954 
1292* 1302 13394 
3 379 380 
46 468 481 
579 605 608 
658 659 666 
719 723 724 
800 825 826 
13884 
379* 380* 389* 
467* 468* 481* 
579* 605* 608* 
658* 659* 666* 
719% 723* 724% 
800* 825* 826* 
967* 969 1078 
12044 
388 389 16854 
3704 
13854 
378 379 380 
763* 777* 819* 
1228 
12194 
12244 
1196 1200 1202 
12324 
12434 
1236 12464 
1218 
1247 
1211 1245 
379 380 389 
467 468 478 
557 558 579 
645 649 651 
706 707 718 
781 792 793 
858 888 1064* 
436* 444 16884 
1351 
hs 16894 
3794 3804 
4814 4844 4854 
6144 6154 
6674 6714 
7268 7398 7404 
‘64 8374 8384 


823* 


1229 


mM 4 
RENCE TABLE == USER SYMBOLS 


835* 


12314 







848« 


16864 


SEQ 0051 


N 4 
-MAIN. MACYT1 as ». 19-MAY=80 14:57 PAGE 4-3 


CZCTAA.SRC 1 14:57 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0052 
MEW 0142. 1207 s-:1255@ 
MODEO 015470 1289s i a3 1298 = 1301® «= 1312e =: 13408 . 
OCTDEC oig5r6 1089 
1 1 10 35 97 992 | 
oD 012652 988 9934 
012704 981" 983% 984 989* 996 10004 | 
QUTPTR B86 8292 948 949* 16 
PASS] O04242 361 589" 
PASS@ 674 6814 | 
00 742 7498 
PASSG 010 801 | 
015335 1068 13874 
PCV 429% 471% 618% 727 1014 10462 1048* 17114 
PROGNM 017303 348 14134 
PS = 177776 2248 = 343% 427%) = 433%) 2 = 473% = 76% = 20% = 23% = 729%) 732 
PSV 020562 430* 672% 619% 728% 1050* 17124 
PT 020526 1124* 1125 16914 
PTR 020530 697* 703% 714% 909 964* 967 973* 16924 | 
PIA 004634 6204 625 | 
P1B 004710 626 6284 
P1D 639 
PIE 005544 6544 661 | 
PIINT 004704 618 6274 
PIMSG1 016327 593 14034 | 
PIMSG2 016412 599 14044 | 
IMSG3 016464 601 14054 | 
P2A 699% 709 
DOB 007404 7334 734 
P2C 7440 735 7374 | 
PP INT 7434 727 
P2MSG1 016555 14064 
P2MSG2 016643 684 754 813 14074 
P2MSG3 016715 512 529 567 686 756 815 14084 
P2MSG6 017001 375 14094 
P2SD1 012244 912" 8 8=— 913 917 
P2SEND 012230 702 713 737 9094 | 
PSA 010036 7714 = 783 | 
P3MSG1 7 14104 
P3MSG2 017132 752 14114 
PSSD1 012322 9284 929 933 | 
P3SD2.- 012350 9344 935 939 | 
PSSEND O12 773, = 787) 797925 | 
011144 8304 841 
POMS 017220 809 14124 
P4MS 017373 811 14144 
P4SD1 012410 9464 947 952 
P4SD2.«s- 012450 9534 954 958 
P4SEND O12 832 845 855 9444 
QUES 014237 1246 1257# 
RDOCT 013514 1037 1047, s«1054 11494 
D1 «§=—. 013524 11514 1160 
T1 01 1360 13674 
2 014610 1366 1367 3413694 
13 01 1364 13714 


8 5 as ee nie me 
MAIN, MACYT) (1052) _ 14:57 PAGE 4-4 
ean 14:57 





5 
635 644 649 658 666 671 694 0 7 
792 799 825 838 850 857 1702# 


CZCTAA. SRC CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0053 
2 oO F 
SCOPE 32 * 379 9 395 419 420s 421 439-448 450 60 | 
1 4.64 “a 8 §& ars 481 484 tgs 89 510 515 516 527 
5 547 557 5 5 605 608 614 615 625 29 630 635 
4 45 g 51 65 659 7 ~~ 677 672694 695 
1 5 ? 1 8 71 723 24 739 740 765 766 
7 781 738 79 799 ~—«- B00 825 826 837 839 850 | 
851 85 858 1063* 16934 
SETBFS 012210 817-9014 
= 25a 
START 001000 0 a | 
$11 001046 52 558-366 
ST 001062 56 5o" 
ST 001076 3634 
000500 til, 35) 355 359 1061 «Ss «1065. s«1092,)'s—«‘«d1166—S—«d1293's«*d1223®=s«1361* «1363. s«*1369% | 
014542 346 © 13598 
SWREG 000176 3264 ©1193 1295 1369 : 
TCR 020540 378 388 393x 395 419 432 450 «= 461 464 468 470% 481 
483 = 484 510 516 538% 558 569x 605 607* 608 617% 630 633* 
637s Ge 5 647" 651 654" 657 659 663% 669% 670 672 
690" 693 695 699" 06 711% 717 9 721% 724 726 7 
740 760% 64 766 771x 778 779 785* 794 793 795* 800 
1830" 1824, 826 830* 836 837 843% 849 851 853* 856 858 1010 | 
TCRHI 459% 666% 497% 518% 597% 17014 
0205 914% 930% 936% 948 * 968  1706# | 
TORHI 020552 17054 | 
0205 1127* =1128* + 1129% 1130 1150" 1154" 1155* 1156* 11578 1158* 1161 1694M 
TENS 012706 982 990% 993 10014 | 
TEST] 001334 382 3864 e 
TEST2 001552 307s 415 | 
TESTS 001764 423427 = 439s | 
TEST4 002230 452 4598 461 | 
TESTS 003076 87 04934 
TEST6 004100 561 5654 
R 020554 380 3s 421 615 634 642 648 655 664 691 707 715 723 761 | 
775 781 789 ~—s«B 21 833 839 B46 878 888 965 1706 | 
TIRHI 020556 200 21 ey 772 786 796 ~—s«831 844 854 912 918 928 934 | 
TKB = 177562 227" «©1185 3901197, s:*1212 
TKS = 177560 226 1182 1183 1195 1210 1230s 
™1 013334 1109# 1115 
™2 013352 1112, (11144 
™3 613360 1110 11164 
TOG —s- 012710 980" 986% 991% 10024 
1061 020536 925" 9528 944e 950% 951 956" 957 16954 
10.1 013414 11274 «(113 
10. 013466 1137-11398 | 
10. 013472 11404 1143 
TPB = 177566 229% 116B* 1346 | 
TPS = 177564 2e8M 1169 1344 | 
TSR 020544 79 = 420'—i0—i(itisCG BS 509 515 527 53 614 
} 









-MAIN, MACY) (10S2)_ 1 
CZCTAA.SRC ‘say 14:57 





I 507 
TT1.1 11834 
TT0.1 11694 
4 01 1] ts 
TTO. 01 116 
TTYIN 01 868 
TTYN Q1 12484 
TTYOUT 013602 871 
TYPE = 104400 +) 

598 
865 
1067 
1324 
TYPEC 014472 1232 
TYPEX 014540 1350 
TYPMSG 013330 1102 
TYPOC. 014270 1206 
TYPOCT 013 1103 
TYPON 014304 1291 
TYPOS. 01 $6y5 ioe" 
TyPOUT 0133512 2 
TIA 001340 3874 
T18 001 3884 
TIC 001432 3934 
TIEND 001550 390 
TILST 001520 386 
T 1 015412 416 
T 002022 4334 
T 002150 440 
T3INT 002072 429 
T4A 002362 4634 
148 002436 4664 
T4C 002612 4734 
T40 002666 479 
TSE 002740 4834 
T4INT 471 
TSA 003142 5074 
T58 3302 5134 
TSC 3460 ta 
5D 5 


5434 













¢ 5 
CROSS REFERENCE TABLE == USER SYMBOLS 
13 525 530 543 555 17034 


Y=80 14:57 PAGE 4-5 


995 99 1025 1993 1091 1114 1141 1152 11664 1174 

347 0 372 7%4 415 493 498 501 03 505 
521 25 HY 5 39 541 549 551 553 566 590 
600 1 68 749 751 753 755 808 810 812 
1005 4 1009 1011 1013 1015 1017 1020 1032 1034 1044 
1071 1075 1077 1081 1083 1087 1203 1204 1207 1216 1227 
13448 1345 
1352 123554 
11078 
12928 
11214 
12944 
1099" 

391 

389 

395 

4114 

3998 

499 13914 

437 

449% 450 

4424 

464 

467 468 

478 

4814 

484 485 

480# 

508 509 

514 515 

55 





SEQ 0054 













dD 5 





-MAIN, MACYT1 3S0AC1052) 19-MAY=80 14:57 PAGE 4-6 
CZCTAA. SRC 19-MAY=80 14:57 CROSS REFERENCE TABLE == USER SYMBOLS 
419 420 +3 439 446 448 450 460 461 464 467 
481 484 485 09 510 515 516 527 53 544 547 
572 574 576 578 79 605 608 611 61 614 615 
630 34 635 637 2 644 645 648 649 651 655 
659 666 667 670 671 672 691 693 694 695 
ate 706 707 712 715 717 718 719 722 723 
738 739 740 761 64 765 766 772 775 778 
4 791 £35 798 799 821 824 
831 833 836 83 838 839 844 846 849 850 851 
857 858 883 8 919 970 1062 1177 12484 12864 14164 


SEQ 0055 





-MAIN ~ aie a , we 14:57 PAGE 5 
CROSS REFERENCE TABLE == MACRO NAMES 


CZCTAA. SRC 
CKTCR 2708 378 24 
630 637 

os 800 826 

CKTIR So0e 350 621 

CKTSR 2804 ri 
644 649 6 
838 50 57 

LOOP 2604 78 79 
467 468 478 
ee 
7% 739 740 
838 839 850 
2468 657 

WTIDR 2568 634 642 

WTODR 2si# 700 712 


ERRORS DETECTED: 0 
CZCTAA, CZCTAA/CRF =CZCTAA. SRC 
RUN-TIME: 9 18 2 SECONDS 


RUN-TIME RATIO: 157/30=5.2 
CORE USED: 8k (15 PAGES) 


ye PS aa -~ 
wi 
EOUSSSas FF 


w 
Nm 
Nm 


532 557 579 
739 765 780 
439 448 450 
516 527 532 
637 644 645 
oe 707 718 
79 799 800 
791 798 824 
775 789 821 


516 
740 


558 
766 


SEQ 0056 


779 


